Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Combinar correspondecia con Word y VFP
Message
 
General information
Forum:
Visual FoxPro
Category:
COM/DCOM and OLE Automation
Miscellaneous
Thread ID:
00848565
Message ID:
00848808
Views:
9
Hola Mario, yo utilizo el siguiente còdigo para cambiar valores dinàmicamente en un archivo de Word. Obviamente primero debes preparar el documento que vas a generar y en donde quiera que vaya uno de los campos que vas a reemplazar debes crear un bookmark.

Luego prueba el siguiente código>
	oWordObj=CREATEOBJECT("Word.Application")
	
	WITH oWordObj
		.Visible=.t.
		.Documents.Open ("documento.doc")  &&& Abre el documento
		
		**** Fecha 
		.ActiveDocument.Bookmarks("cFecha").Select &&& Selecciona el bookmar que vas a cambiar
		.Selection.Text = cFechad  &&& Asigna el valor deseado
		
		**** Nombre
		.ActiveDocument.Bookmarks("Nombre").Select
		.Selection.Text = Allt(Precli01.Nombre)

		**** Direccion
		.ActiveDocument.Bookmarks("Direccion").Select
		.Selection.Text = Allt(Precli01.direccion)

		**** Cuota Numérica
		.ActiveDocument.Bookmarks("CuotaNum").Select
		.Selection.Text = Transform(Cuotas.Valor,"99,999,999.99")

		
	ENDWITH
Sin embargo, solo he utilizado este ejemplo para crear un dócumento a la vez, habría que adaptar el código par poder generar varios documentos.

HTH,

Enmanuel

>Hola
>
>Necesito hacer algo parecido al combinar correspondencia en Word y VFP, es decir tengo un documento bastante extenso (2 paginas) en word y debo completar algunos datos que lo sacamos de una tabla de VFP.
>
>Pienzo en combinar correspondecia porque el documento tiene variedad de fuentes, (negritas, cursivas, subrrayado, etc) a gusto de los abogados y es mas facil de modificar cualquier parrafo por ellos.
>
>Desde la aplicacion solos elegiria a quien enviarle (Codigo, nombre, domicilio, montos, vencimientos, etc.) e imprimirlos directamente desde ahi.
>
>Por favor si me tiran alguna pista por donde comenzar o si hay alguna otro buena alternativa
>
>Muchas gracias
I'm a mixture of Albert Einstein and Arnold Schwarzenegger. The only trouble is that I got Einstein's body and Schwarzenegger's brain
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform