Visual Basic - Buscar y Reemplazar en WORD

Life is soft - evento anual de software empresarial
 
Vista:

Buscar y Reemplazar en WORD

Publicado por Charly (1 intervención) el 17/05/2013 10:49:19
Buenos días:
Tengo un formulario en Access que permite seleccionar una carpeta e indicar el texto a buscar y reemplazar. Abro los .doc de dicha carpeta y ejecuto el código de búqueda y reemplazo, igual que lo hace word si grabo una macro siguiendo esos pasos. Lo curiosos es que si hago eso mismo en Word, desde su cuadro de Buscar y Reemplazar, sin decirle nada más es capaz de buscar en los cuadros de texto del documento, tanto si están flotando como si están en línea con el texto. Sin embargo desde el Visual Basic de Access sólo realiza la búsqueda en el cuerpo del documento, no en los objetos incristados :S
¿Alguna pista? ¡Gracias! Adjunto código:

Dim vApp As Object

Set vApp = CreateObject("Word.Application")

vApp.Documents.Open FileName:= vDocumento
'Ir al inicio del doc
vApp.Selection.HomeKey Unit:=6

vApp.Selection.Find.ClearFormatting
vApp.Selection.Find.Replacement.ClearFormatting
With vApp.Selection.Find
.Text = Me.fiBuscar
.Replacement.Text = Me.fiReemplazar
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
vApp.Selection.Find.Execute Replace:=wdReplaceAll
vApp.Documents.Save
vApp.Documents.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder