Mensajes

Bien dice que el que sabe sabe, los demas son jefes,  , te agradezco mucho tu ayuda en realidad funciono bien como yo quiera.

Gracias 

Muy buen día hoy me registre en el foro, y como persona educada me presento ante ustedes, soy de Guatemala y mi nombre es Oscar, me  gusta mucho la programacion.

ahora entro en el tema central de mi problema:

Estoy haciendo un Script en VB para que me abra un documento de Word, que haga una busqueda y replace un texto en el documento. EL Script abre bien el documento pero no hace la busqueda ni el remplazo, he estado navegando por todos lados buscando soluciones pero nada me aclara el problema para poder encontrar el error, espero que ustedes me puedan ayuda, aqui le pongo el codigo de mi script.

Código (vb) [Seleccionar] Expandir

Set objWord = CreateObject("Word.Application")
Set objDoc = objWord.Documents.Open("drive:\ruta\Nombre del archivo.doc")
objword.visible = true

ObjWord.Selection.Find.ClearFormatting  
ObjWord.Selection.Find.Replacement.ClearFormatting  
     
With ObjWord.Selection.Find
       .Text = "Texto a cambiar"
       .Replacement.Text = "Texto nuevo"
       .Forward = True  
       .Wrap = wdFindContinue
       .Format = False  
       .MatchCase = False  
       .MatchWholeWord = False  
       .MatchWildcards = False  
       .MatchSoundsLike = False  
       .MatchAllWordForms = False

End With  
ObjWord.Selection.Find.Execute

Como podran ver al final del Script pongo que ejecute la busqueda y el replazo, asi no me da ningun error pero no hace el bambio, en internet he encontrado que la instruccion final deberia de ser ObjWord.Selection.Find.Execute Replace:=wdReplaceAll, pero al ponerlo asi el Script me devuelve un error diciendo Expected statement, con el codigo 800A0400, en la linea final, he probado ponerlo entre parentesis y lo unico que hace es cambiar el error.

Alguien podra ayudarme a resolver este dilema.

Gracias