Con el tiempo, es muy posible recopilar una gran cantidad de documentos. En algún momento, es posible que desee realizar el mismo cambio en cada uno de los documentos de la colección. Por ejemplo, es posible que deba cambiar el nombre de la empresa en cada documento. Obviamente, puede abrir cada documento, realizar el cambio y luego guardar el documento, pero ese proceso puede volverse agotador rápidamente si tiene cientos o miles de documentos para procesar.

¿Qué hacer? De acuerdo con el punto que se ha hecho en otros números de WordTips, siempre que tenga algo que sea mundano y tedioso de lograr, a menudo puede usar una macro para manejar el trabajo por usted. Por ejemplo, puede escribir una macro que recorra todos los documentos de un directorio, cargue cada uno por turno, busque y cambie el texto necesario y vuelva a guardar el documento. Este proceso no es diferente del proceso que seguiría manualmente, excepto que se realiza bajo el control de la macro. Esto lo hace mucho más fácil y rápido.

El siguiente es un ejemplo de una macro que podría funcionar:

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             ' to display how many files this macro will access,             ' uncomment the next line of code '            MsgBox "Found " & .FoundFiles.Count & " file(s)."



' 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 company name                 selection.Find.ClearFormatting                 selection.Find.Replacement.ClearFormatting                 With selection.Find                     .Text = "OldCompanyName"

.MatchCase = True                     .Replacement.Text = "NewCompanyName"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace street address                 With selection.Find                     .Text = "OldStreetAddress"

.Replacement.Text = "NewStreetAddress"

End With                 selection.Find.Execute Replace:=wdReplaceAll

' replace the City, State, and Zip code                 With selection.Find                     .Text = "OldCityStateAndZip"

.Replacement.Text = "NewCityStateAndZip"

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 el nombre de una empresa, sino también la dirección de su empresa. 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 de la empresa nueva y antigua.

Si trabajar con macros va un poco más allá de lo que desea abordar, también hay varios productos comerciales diferentes disponibles que funcionarán con documentos de Word. Varios suscriptores han sugerido los siguientes programas:

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 (1462) se aplica a Microsoft Word 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Word (Word 2007 y más tarde) aquí:

link: / wordribbon-Mass_Search_and_Replace [Búsqueda masiva y reemplazo].