A medida que usa Word, día tras día, tiende a acumular montones de documentos. Si estos documentos se utilizan para un propósito estándar, no es inusual que los documentos contengan parte de la misma información.

Por ejemplo, puede tener documentos que contengan historias que envíe a diferentes periódicos y revistas. Si bien las historias individuales pueden ser diferentes, cada documento puede contener su nombre e información de contacto. Si su información de contacto cambia, o si decide usar una ortografía diferente para su nombre, es posible que desee una forma de hacer un cambio universal en todos los documentos a la vez.

Desafortunadamente, Word no incluye este tipo de capacidad. Sus opciones son confiar en una solución de terceros o escribir su propia macro para realizar los cambios. Hay una serie de programas de terceros que ofrecen el tipo de función de búsqueda y reemplazo necesaria cuando se trabaja con varios documentos. Los siguientes son solo algunos de los sugeridos por los suscriptores de WordTips:

El desarrollador de Word Malcom Smith también ha creado una macro que realizará búsquedas y reemplaza a través de directorios. Si desea verlo, puede visitar http://www.dragondrop.com. Simplemente haga clic en el enlace Buscar y reemplazar para Word, en el lado derecho de la página.

Si no le importa usar sus propias macros, a continuación se muestran las técnicas inherentes a recorrer los documentos en una carpeta en particular.

Public Sub MassReplace()

With Application.FileSearch         .LookIn = "C:\"             ' where to search         .SearchSubFolders = True    ' search the subfolders         .FileName = "*.doc"         ' file pattern to match

' if more than one match, execute the following code         If .Execute() > 0 Then             ' for each file you find, run this loop             For i = 1 To .FoundFiles.Count                 ' open the file based on its index position                 Documents.Open FileName:=.FoundFiles(i)



' search and replace the address                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldAddress"

.MatchCase = True                     .Replacement.Text = "NewAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace e-mail address                 With selection.Find                     .Text = "Oldemail"

.Replacement.Text = "Newemail"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' save and close the current document                 ActiveDocument.Close wdSaveChanges             Next i         Else             ' if the system cannot find any files             ' with the .doc extension             MsgBox "No files found."

End If     End With End Sub

Esta macro es bastante poderosa y le permite no solo cambiar una dirección postal, sino también su dirección de correo electrónico. Todo lo que necesita hacer es realizar cambios para especificar qué directorio y unidad usar en su búsqueda, así como cuál es la información antigua y nueva. Cambie el parámetro .Lookin al principio de la macro para indicar dónde debe buscar la macro; asegúrese de utilizar una ruta completa. Luego, dentro del cuerpo principal de la macro, actualice los parámetros .Text y .Replacement.Text para reflejar lo que está buscando y reemplazando.

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios WordTips), he preparado una página especial que incluye información útil.

link: / wordribbon-WordTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

WordTips es su fuente de formación rentable en Microsoft Word.

(Microsoft Word es el software de procesamiento de texto más popular del mundo). Este consejo (3783) se aplica a Microsoft Word 97, 2000, 2002 y 2003.