FoxPro/Visual FoxPro - pasar datos a word

amigos de foro

Si alguien alguien tine una rutina para pasar datos de una tabla y crear un documento en word es que nesecito que mi aplicacion genere se documento

gracias

richard

Espero te ayuden estas rutinas
programa 1
oWord=CREATEOBJECT("Word.Application")
oword.Visible=.t.
Lodocument= oword.Documents.Add()
Loselection=oword.Selection

Loselection.TypeText("COMIDAS FAVORITAS")
Loselection.TypeText(CHR(13))
Loselection.TypeText(CHR(13))
** cREA LA TABLA DE WORD
lotable = Lodocument.tables.add(Loselection.range,3,2)
***Llena los encabezados en la primera fila
** Llena con datos las otras 2 filas
lotable.cell(1,1).range.text ="Comida"
lotable.cell(1,2).range.text ="Tipo"
lotable.cell(2,1).range.text ="Manzana"
lotable.cell(2,2).range.text ="Fruta"
lotable.cell(3,1).range.text ="Brussell Sprouts"
lotable.cell(3,2).range.text ="Vegetales"

MESSAGEBOX("Presione OK para continuar")

Lodocument.SAveAs("Comidas Favoritas")
******************************************

&&&&&Programa 2
LOCAL loword
loword = CREATEOBJECT("Word.Application")
loword.documents.add()
lorange = loword.activedocument.range()
lorange1 = loword.activedocument.range()
lorange.insertafter("Fox Pro") &&&Inserta en el docu de word el texto
lorange1.insertafter("Visual Basic .NET")
loword.activedocument.saveas("c: est1.doc") &&&guarda el documento en este directorio y con ese nombre
loword.printOut()&&Manda a imprimir el documento creado a la impresora predeterminada
loword.quit()
RELEASE lorange, loword

perdon, un ejemplo con una tabla de visual fox sería este:
aca te mando una rutina que hice, espero ayudarte
USE \servidorases$pc IN 0 SHARED &&&esta es una tabla de fox
*sacas la consulta:
SELECT expediente,nom_proy,prop_proy,property,pc.distrito,dto_alc_ss,alltrim(entidad)+" "+alltrim(n_entidad)+" "+alltrim(acceso1)+" "+alltrim(n_acceso1)+" "+alltrim(acceso2)+" "+alltrim(n_acceso2)+" "+alltrim(acceso3)+" "+alltrim(n_acceso3)+poligono as direccion;
FROM PC;
WHERE expediente="00061990";
INTO CURSOR tabla
SELECT tabla
*-------------------------
*Aca se manda la información de visual fox a Word
*--------------------------*
LOCAL oDocument, oRange
OWord = CreateObject ( "Word.Application")
oWord.Visible = .F.
*oDocument = oWord.Documents.Add() &&&&Te crea el docuemnto de word, se puede trabajar con una plantilla ya predefinida,
oDocument = oWord.Documents.open("c: est1")&&si ya tienes una plantilla
oRange = oDocument.Range()
oRange.Font.Name="Arial"
oRange.Font.size=10
oRange.InsertParagraphAfter()
oWord.Selection.InsertAfter("San Salvador"+', '+STR(DAY(date()),2)+' de '+ CMONTH(date())+' de '+STR(YEAR(date()),4))
oRange.InsertAfter("Numero de Expediente" + ": " + expediente )
oRange.InsertParagraphAfter()
oRange.InsertAfter("Nombre del Proyecto" + ": " + nom_proy )
oRange.InsertParagraphAfter()
oRange.InsertAfter("Propietario Proyecto: " + TRIM(prop_proy))
oRange.InsertParagraphAfter()
oRange.InsertAfter("Dirección Proyecto: " + TRIM(direccion))
*ORange.InsertAfter ( "A la atención de:" + TRIM (Contact) + "-" + Title)
oRange.InsertParagraphAfter()
*oRange.InsertAfter(direccion)
oRange.InsertParagraphAfter()
*oRange.InsertAfter(TRIM(City) + " " + TRIM(Region) + PostalCode )
oRange.InsertParagraphAfter()
oWord.ActiveDocument.Bookmarks.add("fecha")
*oRange.InsertAfter(UPPER(Country))
oword.activedocument.saveAs("C: esolucion.doc") &&&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("Proceso concluido",64,"Aviso")
oWord.Quit(.F.) && Parra cerrar a winword
*ThisForm.Release

gracias beatriz

se que me va ayudar mucho

yo lo pruebo con mi aplicacion y te cuento

gracias

richard

Por nada Richard¡¡¡¡y si le das solucion a tu problema....lo compartes
saludos Beatriz