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

Gracias Mónica pero me temo que no soy experto en VB para aplicar código,
pero si me orientas sobre la manera de editarlo y correrlo u otro modo de
reemplazar texto en MUCHOS archivos WORD 2003, te estaría muy agradecido.
Orlando Montezuma
PNUD - Venezuela


"Monica May" escribió:

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

hola Orlando,

...me temo que no soy experto en VB para aplicar codigo,
pero si me orientas sobre la manera de editarlo y correrlo u otro modo de
reemplazar texto en MUCHOS archivos WORD 2003, ...

Bien para probar el codigo que te he pasado en el arterior
hilo-consulta-post, pues tienes que >>

1.-primero abrir por ejemplo [dos archivos de word ]
2.-Una vez abiertos te vas a la interfaz de cualquiera de ellos
3.-desde ahi dale a las teclas [ Alt + F11 ] para abrir el editor de Codigo
VBA
4.-Ves al menu >> Insertar >> Modulo
5.- en Ese escenario blanco que te aparece pegas el codigo que te he pasado
anteriormente
6.- Cambia en estas lineas de codigo >>

.Text = "hola"
.Replacement.Text = "buenas"

los textos a buscar y a reemplazar >>

.Text="aqui el texto a buscar en los documentos"
.Replacement.Text = "aqui el texto a reemplazar "

y ahora una vez cambiado los textos a [buscar y reemplazar ] sin cambiarte
de documentos ni volver a la interfaz >> solo hace falta ejecutarla desde >>
Menu>> Ejecutar o bien situandote en el medio del codigo [que has pegado]
dale a la tecla [F5].

Si lo quieres hacer todo de golpe en [documentos cerrados] mirate el
siguiente articulo >>

Como sustituir una palabra por otra en multiples documentos a la vez (Word)
codigo de Doug Robbins
http://www.fermu.com/lang-es/articu...office/461

y comentanos cualquier duda y demas!!!

Saludos
Monica

NOTA:

aqui aparece un Flash que solo es visible por IE :-P !

Introduccion a Visual Basic para Aplicaciones (Word)
http://www.fermu.com/lang-es/articu...office/533

Hola Monica May,

Te comento brevemente que no tuve éxito con el código suministrado (aunque
seguí tus instrucciones al pelo), sin embargo creé una macro (grabando) con
la que pude solventar la situación del reemplazo multiple, desprotección y
protección del documento activo, salvar y cerrar, etc..., solo que no supe
hacerla repetitiva para multiples archivos abiertos.

Mil gracias por tu interés. Saludos

Orlando



_____

Bien para probar el codigo que te he pasado en el arterior
hilo-consulta-post, pues tienes que >>

1.-primero abrir por ejemplo [dos archivos de word ]
2.-Una vez abiertos te vas a la interfaz de cualquiera de ellos
3.-desde ahi dale a las teclas [ Alt + F11 ] para abrir el editor de Codigo
VBA
4.-Ves al menu >> Insertar >> Modulo
5.- en Ese escenario blanco que te aparece pegas el codigo que te he pasado
anteriormente
6.- Cambia en estas lineas de codigo >>

..Text = "hola"
..Replacement.Text = "buenas"

los textos a buscar y a reemplazar >>

..Text="aqui el texto a buscar en los documentos"
..Replacement.Text = "aqui el texto a reemplazar "

y ahora una vez cambiado los textos a [buscar y reemplazar ] sin cambiarte
de documentos ni volver a la interfaz >> solo hace falta ejecutarla desde >>
Menu>> Ejecutar o bien situandote en el medio del codigo [que has pegado]
dale a la tecla [F5].

Si lo quieres hacer todo de golpe en [documentos cerrados] mirate el
siguiente articulo >>

Como sustituir una palabra por otra en multiples documentos a la vez (Word)
codigo de Doug Robbins
http://www.fermu.com/lang-es/articu...office/461

y comentanos cualquier duda y demas!!!

Saludos
Monica

NOTA:

aqui aparece un Flash que solo es visible por IE :-P !

Introduccion a Visual Basic para Aplicaciones (Word)
http://www.fermu.com/lang-es/articu...office/533

Hola Orlando,

... no tuve exito con el codigo suministrado (aunque
segui tus instrucciones al pelo), sin embargo cree una macro (grabando)
con
la que pude solventar la situacion del reemplazo multiple, desproteccion y
proteccion del documento activo, salvar y cerrar, etc..., solo que no supe
hacerla repetitiva para multiples archivos abiertos.

bien iremos por partes:

-comentanos que es realmente lo que buscas en los documetos ?
-si Necesitas reemplazar ?

ponnos un ejemplo de lo que necestias hacer y tambien que llevan esos
documentos ->

- si son formularios, llevan proteccion etc.

comentanos!!

Saludos
Monica




www.fermu.com
www.teladearana.es