Hernán, yo uso el siguiente código para buscar y reemplazar texto en un word.
Procedure FindText(tcText as String, tcReplacement as String, toWord as object)
as Boolean
tcReplacement = Iif(Empty(tcReplacement), '', tcReplacement)
#Define nTipoReemplazo Iif(Empty(tcReplacement), 1, 2) && 2 = Replace all
Local llRetVal as Boolean
With toWord
With .Selection
With .Find
.ClearFormatting
.Replacement.ClearFormatting
EndWith
Do while .T.
.HomeKey(6)
llRetVal = .Find.Execute(tcText)
If llRetVal
If Empty(tcReplacement)
Exit
Else
.Text = tcReplacement
EndIf
Else
Exit
Endif
EndDo
EndWith
EndWith
#UnDef nTipoReemplazo
Return llRetVal
EndProc
----- Original Message -----
From: [email protected]
To: GUFA List Member
Sent: Wednesday, December 23, 2009 8:02 PM
Subject: [GUFA] automatizacion vfp con word
Hola Amigos, necesito conformar un contrato de compra venta desde un
formulario vfp
abro un modelo del contrato en un archivo modelo guardado previamente en
Word, el
problema es que no puedo pasarle por variable los nombres y demas datos de
las
personas.. Me dan un link donde leer o me pasan un ejemplo por favor...
Desde ya muchas Gracias y Saludos...
HERNAN SULIGOY
Rqta (Santa Fe)
