Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Combinar correspondecia con Word y VFP
Message
Information générale
Forum:
Visual FoxPro
Catégorie:
COM/DCOM et OLE Automation
Divers
Thread ID:
00848565
Message ID:
00848808
Vues:
10
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform