Ejemplo de buscar y reemplazar en un documento Word
wordFindAndreplace("foxpro","FoxPro","c:\informe.doc")
FUNCTION wordFindAndReplace
LPARAMETERS cValueTofind,cValueToreplace,cDocument
LOCAL lValue
oWord = CREATEOBJECT("word.application")
oDocument = oWord.Documents.OPEN(cDocument)
loSelection = oWord.SELECTION
WITH loSelection.FIND
.TEXT = cValueToFind
.Forward = .T.
.WRAP= 1
ENDWITH
DO WHILE .T.
lValue = loSelection.FIND.Execute
IF lValue
loSelection.Cut
loSelection.InsertBefore(cValueToReplace)
loselection.MoveRight
ELSE
EXIT
ENDIF
ENDDO
oWord.VISIBLE =.T.
ENDFUNC
Mauricio Henao Romero
ALGUIEN ME PODRÍA AYUDAR AUTOMATIZAR UNA PLANTILLA WORD DESDE FORMULARIO VFP 9.0
ResponderBorrarFunciona al 100%, pero, también tengo que reemplazar palabras que estan contendidas en el encabezado (header) del mismo documento ya prediseñado. Como sería el código para esta seccion del documento y tambien para el pie de página!? Me podrian ayudar, por favor, de antemano gracias!!!
ResponderBorrarEstimados, de antemano gracias por el apoyo. El código funciona a la maravilla. Logré buscar y reemplazar palabras en un docuemnto de Word ya diseñado, esto dentro del cuerpo del documento. Pero, ahora requiero buscar y reemplazar palabras que estan dentro del Encabezado y pie de página del mismo citado documento. Como sería el código para lograr esto? espero anhelante esa respuesta.
ResponderBorrarFernando Tizoc f3rcho68@icloud.com