RE:Agregar nota de VFP a Word
este es un codigo de ejemplo que recoge informacion de una tabla y la inserta en word
select 0
use c:\trabajo\datos\emfmmaim.dbf
select emfmmaim
scatter memvar
use
select 0
use c:\bd_ltaux.dbf
select bd_ltaux
go top
#DEFINE APPSHOW_WORDUS_LOC "appshow"
#DEFINE FILENEW_WORDUS_LOC "filenewdefault"
#DEFINE CRLF CHR(13)+CHR(10)
APPSHOW_WORDUS =APPSHOW_WORDUS_LOC
FILENEW_WORDUS =FILENEW_WORDUS_LOC
owordref=crea("word.basic")
owordref.&APPSHOW_WORDUS &&added 8/17 for Word 7.0 support
owordref.&FILENEW_WORDUS
cuenta=0
do while not eof()
if cuenta<=bd_ltaux.im_linea
if cuenta+1<>bd_ltaux.im_linea
for x=cuenta to bd_ltaux.im_linea-1
oWordRef.Insert(CRLF)
next x
endif
cuenta=bd_ltaux.im_linea
DO CASE
CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(NEGRITA)
MITAMA=8.7
MIFORMA='B'
MILETRA='Courier New'
CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(GRANDE)
MITAMA=16
MIFORMA='B'
MILETRA='Courier New'
CASE ALLTRIM(bd_ltaux.IM_ESCCAR1) = ALLTRIM(PEQUENIA)
MILETRA='UNIVERS'
MIFORMA='N'
MITAMA=6
OTHERWISE
MILETRA='Courier New'
MITAMA=8.7
MIFORMA='N'
ENDCASE
do case
case miforma='B'