Busqueda y reemplazo de texto en múltiples archivos ?

10/12/2008 - 21:53 por Orlando | Informe spam
Buenas, les agradecería su orientación para buscar y reemplazar uno o varios
strings de texto en archivos WORD 2003 abiertos simultáneamente, sin
necesidad de tener que editar uno a uno.

Gracias !!!
 

Leer las respuestas

#1 Monica May
11/12/2008 - 00:47 | Informe spam
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

Preguntas similares