none
Cambiar datos en Word RRS feed

  • Pregunta

  • 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

     

    miércoles, 13 de julio de 2011 8:38

Todas las respuestas

  •  

    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
    sábado, 16 de julio de 2011 16:47
  • 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.

     

    lunes, 18 de julio de 2011 5:52