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 de Word que podría funcionar:

Public Sub MassReplace()

Dim Directory As String     Dim FType As String     Dim FName As String

Directory = "d:\temp"

FType = "*.docx"



ChDir Directory     FName = Dir(FType)

' for each file you find, run this loop     Do While FName <> ""

' open the file         Documents.Open FileName:=FName

' 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

' look for next matching file         FName = Dir     Loop 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). Esta sugerencia (8477) se aplica a Microsoft Word 2007, 2010, 2013, 2016, 2019 y Word en Office 365. Puede encontrar una versión de esta sugerencia para interfaz de menú anterior de Word aquí:

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