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.
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