Cambiar datos en Word

Question

Saludos al foro.

Estoy intentando cambiar desde VB6 un campo en un documento word con el siguiente código:

    Set w = CreateObject("Word.Application")

     w.Documents.Open "TransporteVolvo.doc"

    '

    Fichero = "Volvo.doc"

    On Error Resume Next

    Kill Fichero

    On Error GoTo 0

    With w.Selection.Find

        .ClearFormatting

         .Replacement.ClearFormatting

        .Text = "Pal 402"

        .Replacement.Text = "Javier"

        .Forward = True

        .Wrap = wdFindStop

        .Format = False

        .MatchCase = False

        .MatchWholeWord = False

        .MatchWildcards = False

        .MatchSoundsLike = False

        .MatchAllWordForms = False

        .Execute Replace:=wdReplaceAll

    End With

Y el error que me da en le línea del execute es: Este comando no está disponible

 

Le suena a alguien elgo sobre el problema ?

 

Gracias de anteman0. Javier Basauri

 

Answer 1

 

Hola jbasauri, puede ser y tiene toda la pinta de que no se esta cargando el documento que le estas pasando, si se esta creando el objeto pero el documento no esta cargandose correctamente y por ello te da error de que la funcion replaceAll no está disponible, ojo  puede ser eso o no ehhh, de todas formas te aconsejo que pruebes a cambiar algunas cosas en el code...

Por ejemplo prueba a modificar linea w.Documents.Open por esta que te indico :

w.Documents.Open FileName:="TransporteVolvo.doc"

Tambien intenta forzar el inicio de la selecicon en el documento...

 

Te dejo un link de un ejemplo completo para vb6 muy sencillito;-)

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/309-buscar-reemplazar-en-word.htm

Saludos, espero que lo resuelvas.

---

Danicuco - 2011

Answer 2

Gracias Danicuco por tu sugerencia pero el motivo por el que daba el error era que el documento de origen estaba bloqueado en su concepción por lo que no lo trataba bien. Creé otro doc sin los bloqueos y funcionó perfectamente.

De nuevo gracias.