FoxPro/Visual FoxPro - Mandar informacion de fox a word

 
Vista:

Mandar informacion de fox a word

Publicado por Beatriz (88 intervenciones) el 04/04/2008 21:13:06
Hola a todos, necesito saber si existe forma de convertir un frx a documento de word....lo que necesito es que el usuario genere un archivo de word con datos generales almacenados en la bd, y luego el usuario pueda modificar el archivo de word.
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Mandar informacion de fox a word

Publicado por Beatriz (88 intervenciones) el 11/04/2008 22:24:09
Hola grupo¡¡¡Bueno..luego de tanto....ya investigue que los reportes de Visual Fox no se pueden convertir a formato Word, si se pueden convertir a .Pdf con el "Pdf Writer que es un aplicativo gratis que anda rolando por la web.
Bueno, para mandar informacion de visual fox a un archivo de microsoft word publico aca un ejemplo que funciona:
Utilizo la tbl customer de visual fox

USE "C:Archivos de programaMicrosoft Visual FoxPro 9SamplesDatacustomer"
LOCAL oDocument, oRange
OWord = CreateObject ( "Word.Application")
oWord.Visible = .F.
oDocument = oWord.Documents.Add()
*oDocument = oWord.Documents.open("c: est1") &&Si utizas una plantilla ya definida
oRange = oDocument.Range()
oRange.InsertParagraphAfter()
oRange.InsertAfter(Cust_ID + ": " + Company )
oRange.InsertParagraphAfter()
oRange.InsertAfter("Attn: " + TRIM(Contact) + " - " + Title )
oRange.InsertParagraphAfter()

ORange.InsertAfter ( "A la atención de:" + TRIM (Contact) + "-" + Title)

oRange.InsertParagraphAfter()

oRange.InsertAfter(Address )

oRange.InsertParagraphAfter()
oRange.InsertAfter(TRIM(City) + " " + TRIM(Region) + PostalCode )

oRange.InsertParagraphAfter()

oRange.InsertAfter(UPPER(Country))
oword.activedocument.save &&&guarda el documento en este directorio y con ese nombre
*oword.activedocument.saveAs &&&save as si queres guardar los cambios sin afectar tu plantilla, para el caso se utilice una plantilla
oWord.Visible = .T. && Inspect the results
MESSAGEBOX("Look at results in Word.")
*oWord.Quit(.F.) && Parra cerrar a winword
*ThisForm.Release
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar