Busqueda y reemplazo de texto en múltiples archivos ?

Claro, con todo gusto: Son 567 archivos (Word 2003) conteniendo Actas
similares, con campos formulario de tipo lista desplegable, cuadros de texto
(protegidos sin password). A traves de Macro logré ubicar los comandos
Selection para desproteger, luego reemplazar grupos de texto del cuerpo de
cada archivo. Abrí por lotes y con un simple comando Protect y close al final
de la macro voy por el resto de archivos. Lo que realmente necesito es
modificarlos de acuerdo a cambios que van surgiendo segun usuario, sin tener
que editarlos por grupo.

Espero no enredar mas el asunto.
Gracias. Sigo atento a vuestra respuesta.


"Monica May" escribió:

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

hola Orlando,

.Son 567 archivos (Word 2003) conteniendo Actas
similares, con campos formulario de tipo lista desplegable, cuadros de
texto
(protegidos sin password)logre ubicar los comandos
Selection para desproteger, luego reemplazar grupos de texto del cuerpo de
cada archivo. Abri por lotes y con un simple comando Protect y close al
final
de la macro voy por el resto de archivos. necesito es
modificarlos de acuerdo a cambios que van surgiendo segun usuario, sin
tener
que editarlos por grupo.

Necesitas cambiar todos al golpe ?

osea se... abrir uno >> Buscar una palabra y reemplazarla por otra y esa
misma palabra buscarla en los 567 archivos y a su ver reemplazarla por otra
palabra?

son palabras de mas de 255 caracteres ??

comentanos...!!

Saludos
Monica


www.fermu.com
www.teladearana.es

Hola,
Bueno, si. Modificarlos de golpe a todos, de acuerdo a cierta condición, por
ej: un grupo de archivos contiene Empresa A, otro grupo Empresa B, etc y
conforme a eso reemplazar cierto strig de texto, pero ciertamente en 'todos'.
Los textos a reemplazar son cortos, no más de 10 palabras.

Por ej: desproteger y buscar en todos los archivos Empresa A el string
"dirección de tecnología", reemplazar por "Departamento de computación",
proteger, cerrar.
luego, hacer lo mismo con Empresa B+...+Empresa n
En algunos casos es cambiar de minúsculas a MAYUSCULAS, cambiar signos de
puntuación, etc.

Mientras más automatizado quede, pues mucho mejor.

Gracias, perdona si he agregado cosas nuevas.
Orlando Montezuma


"Monica May" escribió:

hola Orlando,

> .Son 567 archivos (Word 2003) conteniendo Actas
> similares, con campos formulario de tipo lista desplegable, cuadros de
> texto
> (protegidos sin password)logre ubicar los comandos
> Selection para desproteger, luego reemplazar grupos de texto del cuerpo de
> cada archivo. Abri por lotes y con un simple comando Protect y close al
> final
> de la macro voy por el resto de archivos. necesito es
> modificarlos de acuerdo a cambios que van surgiendo segun usuario, sin
> tener
> que editarlos por grupo.

Necesitas cambiar todos al golpe ?

osea se... abrir uno >> Buscar una palabra y reemplazarla por otra y esa
misma palabra buscarla en los 567 archivos y a su ver reemplazarla por otra
palabra?

son palabras de mas de 255 caracteres ??

comentanos...!!

Saludos
Monica


www.fermu.com
www.teladearana.es

hola Orlando,

... Modificarlos de golpe a todos, de acuerdo a cierta condicion, por
ej: un grupo de archivos contiene Empresa A, otro grupo Empresa B, etc y
conforme a eso reemplazar cierto strig de texto, pero ciertamente en
'todos'.
Los textos a reemplazar son cortos, no mas de 10 palabras.

bien por ultimo esperemos :) pregunto >>

- los archivos de [Empresa A] estan en una carpeta ?
-Los de la Empresa B en otra carpeta o los tienes todos en una
misma carpeta?

Por ej: desproteger y buscar en todos los archivos Empresa A el string
"dirección de tecnología", reemplazar por "Departamento de computación",
proteger, cerrar.
luego, hacer lo mismo con Empresa B+...+Empresa n
En algunos casos es cambiar de minusculas a MAYUSCULAS, cambiar signos de
puntuacion, etc.

La proteccion de los documentos como esta realizada ?


Comentanos...!

Saludos
Monica



www.fermu.com
www.teladearana.es

Bien, respondo:

- Los archivos estan distribuidos en un servidor con hasta siete niveles por
debajo de la raíz y en múltiples carpetas, segun clasificación del Acta.

- La protección se efectuó en Restriccion de Edicion -> rellenando
formularios por herramientas.

A continución copio una de las macro como referencia:

Sub MayusMinus()
'
' MayusMinus Macro
' Macro grabada el 16/12/2008 por omontezuma
' Cambia el nombre especificado a letras minúsculas
Selection.Document.Unprotect
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "FILOMENA NAPOLITANO S."
.Replacement.Text = "Filomena Napolitano S."
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = True
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Tecnología creado"
.Replacement.Text = "Tecnología, creado"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Document.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
Selection.Document.Save
Selection.Document.Close
End Sub

Mil gracias de nuevo por tu orientación e interés.
Orlando


-

"Monica May" escribió:

hola Orlando,

> ... Modificarlos de golpe a todos, de acuerdo a cierta condicion, por
> ej: un grupo de archivos contiene Empresa A, otro grupo Empresa B, etc y
> conforme a eso reemplazar cierto strig de texto, pero ciertamente en
> 'todos'.
> Los textos a reemplazar son cortos, no mas de 10 palabras.

bien por ultimo esperemos :) pregunto >>

- los archivos de [Empresa A] estan en una carpeta ?
-Los de la Empresa B en otra carpeta o los tienes todos en una
misma carpeta?


> Por ej: desproteger y buscar en todos los archivos Empresa A el string
> "dirección de tecnología", reemplazar por "Departamento de computación",
> proteger, cerrar.
> luego, hacer lo mismo con Empresa B+...+Empresa n
> En algunos casos es cambiar de minusculas a MAYUSCULAS, cambiar signos de
> puntuacion, etc.

La proteccion de los documentos como esta realizada ?


Comentanos...!

Saludos
Monica



www.fermu.com
www.teladearana.es