¿Cómo buscar y reemplazar en varios archivos en Word?

Si tiene varias docenas de archivos de palabras que contienen el mismo contenido (como encabezado, pie de página, algunas palabras o números especiales) y necesita reemplazar el mismo contenido en todos esos documentos en Word. ¿Cómo le resultaría más fácil hacerlo rápidamente? Ciertamente, puede abrir esos archivos uno por uno para reemplazar el mismo contenido, pero llevará mucho tiempo y será problemático. Este tutorial le mostrará una forma complicada de reemplazar el mismo contenido en varios documentos en Word a la vez.

Busque y reemplace textos en varios documentos de Word al mismo tiempo con el código VBA
Encuentre y reemplace fácilmente diferentes textos en múltiples documentos al mismo tiempo con Kutools para Word

Busque y reemplace textos en varios documentos de Word al mismo tiempo con el código VBA

1. Prensa otro + F11 para abrir el Microsoft Visual Basic para aplicaciones ventana.

2. En el Microsoft Visual Basic para aplicaciones ventana, haga clic recuadro > Módulo, luego copie el siguiente código VBA en la ventana del Módulo.

Código VBA: buscar y reemplazar el mismo contenido en varios documentos a la vez

Sub CommandButton1_Click()
'Updated by Extendoffice 20180625
Dim xFileDialog As FileDialog, GetStr(1 To 100) As String '100 files is the maximum applying this code
Dim xFindStr As String
Dim xReplaceStr As String
Dim xDoc As Document
On Error Resume Next
Set xFileDialog = Application.FileDialog(msoFileDialogFilePicker)
With xFileDialog
    .Filters.Clear
    .Filters.Add "All WORD File ", "*.docx", 1
    .AllowMultiSelect = True
    i = 1
    If .Show = -1 Then
        For Each stiSelectedItem In .SelectedItems
            GetStr(i) = stiSelectedItem
            i = i + 1
        Next
        i = i - 1
    End If
    Application.ScreenUpdating = False
    xFindStr = InputBox("Find what:", "Kutools for Word", xFindStr)
    xReplaceStr = InputBox("Replace with:", "Kutools for Word", xReplaceStr)
    For j = 1 To i Step 1
        Set xDoc = Documents.Open(FileName:=GetStr(j), Visible:=True)
        Windows(GetStr(j)).Activate
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = xFindStr  'Find What
            .Replacement.Text = xReplaceStr  'Replace With
            .Forward = True
            .Wrap = wdFindAsk
            .Format = False
            .MatchCase = False
            .MatchWholeWord = False
            .MatchByte = True
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
        Application.Run macroname:="NEWMACROS"
        ActiveDocument.Save
        ActiveWindow.Close
    Next
    Application.ScreenUpdating = True
End With
MsgBox "Operation end, please view", vbInformation
End Sub

3. presione el F5 clave para ejecutar el código.

4. En la apertura Buscar ventana, busque y seleccione los documentos que encontrará y reemplace el texto dentro, y luego haga clic en el OK botón. Ver captura de pantalla:

5. En el primero Kutools for Word cuadro de diálogo, introduzca el texto que encontrará en los documentos en el Encuentra lo que cuadro, y luego haga clic en el OK botão.

6. En el segundo Kutools for Word cuadro de diálogo, ingrese el texto con el que reemplazará y haga clic en el OK botão.

8. Haga clic en el OK botón en el siguiente Microsoft Word cuadro de diálogo para finalizar la búsqueda y reemplazo.

En este caso, todas las palabras "Word" en los documentos seleccionados se reemplazan por "Excel" al mismo tiempo.

Encuentre y reemplace fácilmente diferentes textos en múltiples documentos al mismo tiempo con Kutools para Word

Aquí recomiendo encarecidamente el Buscar y reemplazar por lotes característica de Kutools for Word. Con esta función, puede encontrar y reemplazar fácilmente diferentes textos en varios documentos de Word al mismo tiempo. Veamos cómo aplicar esta función para buscar y reemplazar textos en documentos.

Kutools for Word : con más de 100 útiles complementos de Word, gratis para probar sin límite en 60 días.

1. Haga clic en Kutools Plus > Buscar y reemplazar por lotes para habilitar la característica.

2. En el Buscar y reemplazar por lotes cuadro de diálogo, configure de la siguiente manera.

• 2.1) Haga clic en Añadir fila botón debajo del Buscar y reemplazar lengüeta;
• 2.2) En los campos de fila creados:

• 2.3) Repita los pasos 2.1 y 2.2 para agregar más textos que encontrará y reemplazará;
• 2.4) Haga clic en  botón en el Tipo de Archivo sección para agregar los documentos de Word en los que encontrará y reemplazará textos;
• 2.5) Haga clic en reemplazar or Encuentra botón. Ver captura de pantalla:

3. Cierra el Buscar y reemplazar por lotes caja de diálogo

Para obtener más información sobre esta función, haga clic aquí ....

Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.

Herramientas de productividad de palabras recomendadas