ESTE ES UN EJEMPLO buscando en la web lo encontré no me acuerdo quien el autor pero me ha servido de mucho es una combinación de correspondencia .
tienes que crear un documentó word .doc no docx tiene que ser tipo documento word 97 - 2003
que hace:
abre el documento existente busca en el documento que exista esto << J>> y lo remplaza por lo que tenga el cursor
y lo guarda en la ruta que tu le des y el nombre que quiera
*#DEFINE _DOCUMENTO lCcarta
LOCAL loWord, loDocument
*- Crea referencia a Word
TRY
loWord = GETOBJECT(,'Word.Application')
CATCH
loWord = CREATEOBJECT('Word.Application')
ENDTRY
IF VARTYPE(loWord) <> 'O'
ERROR 'No se ha podido crear una referencia a WORD'
RETURN .F.
ENDIF
*rutaSave = "C:\JUEZDYNAMIC1\IMPULSOS\"
*---------------------------------
* Abre el documento como ReadOnly
*---------------------------------
*USE c:\rh2\func_contrato.dbf SHARED && IN 0 ALIAS func_contrato
*SELECT ccabos
****
LCcu1 = "SELECT inup,1,2,3,4,5,6,7,8 from tdata"
lcrdo1 = SQLEXEC (gn1,lcCu1,"cur_dt001")
if lcrdo1 < 0
Aerror(verror)
* wait window 'Error '+
mMens2 = verror(2)
=SQLRollback(gn1)
mMens1="No se Puede completar la Operación "
mOpc = messagebox(mMens1 + mMens2,0+32,"Atencion")
return
ENDIF
**************
******
SCAN FOR !EMPTY(cur_dt001.inup) AND RECNO() < 20
TRY
*** Asignado el documento ****
lCcarta = alltrim(cur_dt001.rutadoc)
#DEFINE _DOCUMENTO lCcarta
*** abriendo el documento ****
loDocument = loWord.Documents.Open(_DOCUMENTO,,.T.)
CATCH
*- Cierra instancia de Word
IF VARTYPE(loWord) = 'O'
loWord.Application.Quit(0) && Sale sin salvar y sin preguntar
loWord = .NULL.
ENDIF
ERROR 'No se ha podido abrir el documento "' + _DOCUMENTO + '".'
ENDTRY
*******************
lfBuscaReplaCadena(loWord.Selection, "<<j>>", ALLTRIM(cur_dt001.1))
lfBuscaReplaCadena(loWord.Selection, "<<ciu>>", ALLTRIM(cur_dt001.2))
lfBuscaReplaCadena(loWord.Selection, "<<pro>>", ALLTRIM(cur_dt001.3))
lfBuscaReplaCadena(loWord.Selection, "<<cli>>", ALLTRIM(cur_dt001.4))
lfBuscaReplaCadena(loWord.Selection, "<<ctp>>", ALLTRIM(cur_dt001.5 ))
lfBuscaReplaCadena(loWord.Selection, "<<nit>>", cur_dt001.6 )
lfBuscaReplaCadena(loWord.Selection, "<<ra>>",ALLTRIM(cur_dt001.7 ))
*****
* Buscar texto o imagen y reemplazar por otra imagen
*******
NomDocu = ALLTRIM(cur_dt001.nradica)
loWord.Visible = .t.
rutaGuar = "C:\GUARDARDOC\IMPULSOS\WORD\"+ALLTRIM(cur_dt001.2)+"-"+ALLTRIM(cur_dt001.4)
loWord.ActiveDocument.SaveAS(rutaGuar+".DOC")
* loWord.printout()
wait "Guardando..." window at 15,40 timeout 2
loWord.documents().close(.f.)
ENDSCAN
loWord.quit(.f.)
RETURN
ESPERO QUE ESTE EJEMPLO TE SIRVA
