14 de junio de 2016

Buscar y Reemplazar en un documento Word

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

3 comentarios :

  1. ALGUIEN ME PODRÍA AYUDAR AUTOMATIZAR UNA PLANTILLA WORD DESDE FORMULARIO VFP 9.0

    ResponderEliminar
  2. Funciona 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!!!

    ResponderEliminar
  3. Estimados, 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.

    Fernando Tizoc f3rcho68@icloud.com

    ResponderEliminar