Aug 22
Este es un truco bastante sencillo de como puedes pasar tus tablas a Word; se los recomiendo cuando la tabla no tengo demasiados campos.
En el ejemplo que voy a mostrar convertiré la tabla "Shippers" de Northwind (Viene con VFP) a Word.
Set Safety Off
Open Database Home(2) +
"northwind\northwind"
Use Shippers
Shared
COPY TO c:\TempDatos
TYPE CSV
oWord = CREATEOBJECT("Word.Application")
oDoc = oWord.Documents.Open("c:\TempDatos.CSV")
oRange = oDoc.Range()
oRange.ConvertToTable(",")
oWord.Visible
= .T.
Close Databases all
Usted podría adaptar este ejemplo y a través de
automatización hacerle algunas modificaciones al documento de Word.
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
