Busqueda y reemplazo de texto en múltiples archivos ?

hola Orlando,

buscar y reemplazar uno o varios
strings de texto en archivos WORD 2003 abiertos simultaneamente, sin
necesidad de tener que editar uno a uno.

Ojo >> Si son Archivos que [estan abiertos] prueba el siguiente codigo >>

'[]

Sub demo()
Dim documento As Document, palabra As Range
For Each documento In Application.Documents
Set palabra = documento.Range
With palabra.Find
.Text = "hola"
.Replacement.Text = "buenas"
.Execute Replace:=wdReplaceAll
End With: Next documento
End Sub

'[]


y...comentanos...!!


Saludos
Monica


www.fermu.com
www.teladearana.es