Skip to main content

¿Cómo encontrar y reemplazar múltiples textos en Word usando Excel?

Author: Xiaoyang Last Modified: 2025-08-06

En Microsoft Word, la función Buscar y Reemplazar es una manera eficiente de buscar y reemplazar rápidamente texto específico. Sin embargo, cuando necesitas reemplazar varios términos diferentes, ingresar cada uno manualmente puede ser muy lento.

Para agilizar este proceso, puedes usar Excel para crear una lista de los textos que deseas buscar y reemplazar, y luego automatizar la tarea con un sencillo código VBA. Este tutorial te guiará a través del uso de Excel y VBA para buscar y reemplazar múltiples textos dentro de un solo documento de Word. Además, te mostraré cómo extender esto a múltiples documentos e introducir una poderosa característica de Kutools para el reemplazo de texto por lotes.

Buscar y reemplazar múltiples textos en un documento de Word desde Excel con código VBA

Buscar y reemplazar múltiples textos en múltiples documentos de Word desde Excel con código VBA

Buscar y reemplazar múltiples textos en múltiples documentos de Word con una característica poderosa


Buscar y reemplazar múltiples textos en un documento de Word desde Excel con código VBA

Si quieres buscar y reemplazar algunos textos en un solo archivo de Word, el siguiente código VBA puede ayudarte.

1. En la hoja de cálculo de Excel, crea una columna que contenga los textos que deseas buscar y reemplazar, y otra columna con los textos con los que deseas reemplazarlos, como se muestra en la captura de pantalla a continuación. Luego presiona simultáneamente las teclas Alt+ F11 para abrir la ventana de Microsoft Visual Basic for Applications.

A screenshot showing an Excel worksheet with columns containing texts to find and replace

2. Luego, haz clic en Insertar > Módulo, copia y pega el siguiente código VBA en la ventana.

Código VBA: Buscar y reemplazar múltiples textos en un archivo de Word

Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
  With xDoc.Application.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = xRng.Areas.Item(1).Cells.Item(I).Value
    .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchByte = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
  End With
  xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
  Set xRng = Nothing
  Set xFileDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Después de pegar el código, todavía en la ventana de Microsoft Visual Basic for Applications, haz clic en Herramientas > Referencias, ver captura de pantalla:

A screenshot showing the Microsoft Visual Basic for Applications window with the Tools menu expanded

4. En el cuadro de diálogo emergente Referencias – VBAProject, selecciona la Biblioteca de objetos de Microsoft Word 16.0 de la lista, ver captura de pantalla:

A screenshot showing the References dialog box in the Microsoft Visual Basic for Applications window with the Microsoft Word 16.0 Object Library selected

5. Haz clic en el botón Aceptar para cerrar el cuadro de diálogo, y ahora, presiona la tecla F5 para ejecutar este código; en la ventana Examinar que aparece, selecciona el archivo de Word en el que deseas reemplazar los textos, ver captura de pantalla:

A screenshot showing the Browse window for selecting a Word file

6. Luego, haz clic en Aceptar, en el siguiente cuadro de diálogo, presiona la tecla Ctrl para seleccionar por separado las celdas de texto original y nuevo que deseas usar, ver captura de pantalla:

A screenshot showing the selection of two ranges in Excel for find and replace text

7. Y luego, haz clic en el botón Aceptar, ahora, los textos son encontrados y reemplazados con los nuevos textos en tu documento especificado, y el archivo también se abre, deberías guardarlo para mantener los cambios.


Buscar y reemplazar múltiples textos en múltiples documentos de Word desde Excel con código VBA

También he creado un código VBA para ayudarte a buscar y reemplazar múltiples textos en múltiples documentos de Word. Sigue estos pasos:

1. Abre el archivo de Excel que contiene dos columnas de valores para reemplazar y reemplazar con, como se muestra en la captura de pantalla a continuación, y luego presiona simultáneamente las teclas Alt+ F11 para abrir la ventana de Microsoft Visual Basic for Applications.

A screenshot showing an Excel worksheet with columns containing texts to find and replace

2. Luego, haz clic en Insertar > Módulo, copia y pega el siguiente código VBA en la ventana.

Código VBA: Buscar y reemplazar múltiples textos en múltiples archivos de Word

Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
  (xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
  MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
  GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
  If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
    Set xDoc = xWordApp.Documents.Open(xFile.Path)
    For I = 1 To xRng.Areas.Item(1).Cells.Count
      With xDoc.Application.Selection.Find
        .ClearFormatting
        .Replacement.ClearFormatting
        .Text = xRng.Areas.Item(1).Cells.Item(I).Value
        .Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
      End With
      xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
    Next
    xDoc.Close wdSaveChanges
  End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
  Set xRng = Nothing
  Set xFolderDlg = Nothing
  Set xWordApp = Nothing
  Set xDoc = Nothing
End Sub

3. Todavía en la ventana de Microsoft Visual Basic for Applications, haz clic en Herramientas > Referencias, en el cuadro de diálogo Referencias – VBAProject, selecciona las opciones Biblioteca de objetos de Microsoft Word 16.0 y Microsoft Scripting Runtime de la lista, ver captura de pantalla:

A screenshot showing the References dialog box with Microsoft Word 16.0 Object Library and Microsoft Scripting Runtime selected

4. Después de marcar las dos opciones, haz clic en Aceptar para cerrar el cuadro de diálogo, y luego, sigue presionando la tecla F5 para ejecutar este código, en la ventana Examinar que se abre, elige una carpeta que contenga los documentos de Word en los que deseas realizar la búsqueda y reemplazo, ver captura de pantalla:

A screenshot showing the folder selection dialog for choosing a folder containing Word documents for find and replace

5. Haz clic en el botón Aceptar, en el cuadro de diálogo emergente, presiona la tecla Ctrl para seleccionar por separado las columnas de texto original y nuevo que deseas usar, ver captura de pantalla:

A screenshot showing the selection of original and new text columns in Excel for find and replace

6. Finalmente, haz clic en Aceptar, y los textos originales son reemplazados con los nuevos en estos archivos, después de completar, aparecerá un cuadro de diálogo como se muestra en la captura de pantalla a continuación:

A screenshot showing the confirmation dialog box after completing the find and replace process across multiple Word documents

7. Haz clic en Aceptar para cerrar el cuadro de diálogo. Y puedes ir a los archivos para verificar los resultados convertidos.


Buscar y reemplazar múltiples textos en múltiples documentos de Word con una característica poderosa

En esta sección, explicaré cómo buscar y reemplazar texto por lotes en múltiples documentos de Word utilizando Word mismo, en lugar de Excel. Al usar el potente Kutools for Word, puedes buscar eficientemente textos específicos y reemplazarlos con nuevos en el cuerpo principal, encabezados, pies de página, comentarios y más, mientras también resaltas los resultados según sea necesario.

Kutools para Word,equipado con inteligencia artificial 🤖, ofrece más de 100 funciones prácticas para simplificar tus tareas.

1. Abre un archivo de Word, y luego haz clic en Kutools Plus > Buscar y reemplazar por lotes, ver captura de pantalla:

A screenshot showing the Kutools for Word Batch Find and Replace feature in the Ribbon

2. En el cuadro de diálogo Buscar y reemplazar por lotes abierto, realiza las siguientes operaciones:

  • Haz clic en el botón Agregar para añadir los archivos de Word donde deseas buscar y reemplazar textos;
  • En el panel izquierdo, haz clic en Agregar fila desde la barra superior;
  • En el campo insertado, ingresa el texto original y el nuevo texto en las columnas Buscar y Reemplazar por separado que deseas buscar y reemplazar. También puedes especificar un color para resaltar los textos reemplazados según sea necesario.

A screenshot showing the Batch Find and Replace dialog box with the option to add Word files

3. Después de crear los criterios de búsqueda, haz clic en el botón Reemplazar para ir a la pestaña Vista previa de resultados y ver los resultados de búsqueda y reemplazo. Ver captura de pantalla:

A screenshot showing the Preview Result tab after performing find and replace

4. Luego, haz clic en el botón Cerrar, y aparecerá un cuadro de diálogo emergente para recordarte si deseas guardar este escenario, haz clic en para guardarlo, y en No para ignorarlo, ver captura de pantalla:

A screenshot showing the prompt asking if the user wants to save the batch find and replace scenario in Kutools for Word

Consejos: Esta característica también puede ayudar a realizar las siguientes operaciones:
  • Buscar y reemplazar caracteres especiales en múltiples documentos de Word;
  • Buscar y reemplazar múltiples cadenas con formato específico en múltiples documentos de Word;
  • Buscar y reemplazar múltiples cadenas en múltiples archivos txt/htm/html.

Haz clic para conocer más información detallada sobre esta característica…

Haz más en menos tiempo con Kutools para Word mejorado con IA

Kutools para Word no es solo un conjunto de herramientas, es una solución inteligente diseñada para aumentar tu productividad. Con capacidades impulsadas por IA y las funciones más esenciales, Kutools te ayuda a lograr más en menos tiempo:

  • Resume, reescribe, compone y traduce contenido al instante.
  • Corrige el texto en tiempo real con sugerencias de gramática, puntuación y estilo mientras escribes.
  • Reformula y traduce contenido manteniendo intacto el diseño, estilo y estructura.
  • Traduce tu contenido a más de 40 idiomas fácilmente, ampliando tu alcance a nivel mundial.
  • Recibe ayuda instantánea e ideas inteligentes basadas en el contenido de tu documento actual.
  • Pregunta cómo completar una tarea, como eliminar saltos de sección, y la IA te guiará o lo hará por ti.
  • Redacta información sensible o confidencial en segundos para asegurar la privacidad completa.
  • Todas las herramientas funcionan sin problemas dentro de Word, siempre al alcance.
  • Crea, mejora, traduce, resume y protege documentos sin esfuerzo.
  • Mejora la gramática, la claridad y el tono mientras escribes en tiempo real.
  • Reformula y traduce contenido sin cambios en el diseño o formato.
  • Pregunta cómo completar una tarea, como eliminar saltos de sección, y la IA te guiará o lo hará por ti.
  • Todas las herramientas funcionan sin problemas dentro de Word, siempre al alcance.
Más información sobre Kutools para Word Descargar ahora
Kutools for Word features

Las mejores herramientas de productividad para Office

🤖 Asistente de IA de Kutools: Revoluciona el análisis de datos basado en: Ejecución inteligente |Generar código |Crear fórmulas personalizadas |Analizar datos y generar gráficos |Invocar funciones mejoradas
Funciones populares: Buscar, resaltar o marcar duplicados | Eliminar filas en blanco | Combinar columnas o celdas sin perder datos | Redondear...
Super BUSCARV: Búsqueda con múltiples criterios | Búsqueda de múltiples valores | Búsqueda en varias hojas | Coincidencia difusa....
Lista desplegable avanzada: Crea rápidamente listas desplegables | Lista desplegable dependiente | Lista desplegable con selección múltiple....
Administrador de columnas: Agregar un número específico de columnas | Mover columnas | Cambiar la visibilidad de columnas ocultas | Comparar rangos y columnas...
Funciones destacadas: Cuadrícula de enfoque | Vista de diseño | Barra de fórmulas mejorada | Administrador de libros y hojas de cálculo | Biblioteca de AutoTexto | Selector de fechas | Combinar Datos | Encriptar/Descifrar celdas | Enviar correo electrónico por lista | Super Filtro | Filtro especial (filtro negrita/cursiva/tachado...)...
Top15 conjuntos de herramientas:12 herramientas de texto (Agregar texto, Eliminar caracteres, ...) | Más de50 tipos de gráficos (Diagrama de Gantt, ...) | Más de40 fórmulas prácticas (Calcular edad basada en la fecha de nacimiento, ...) |19 herramientas de inserción (Insertar código QR, Insertar imagen desde ruta, ...) |12 herramientas de conversión (Convertir a palabras, Conversión de moneda, ...) |7 herramientas de combinar y dividir (Combinar filas avanzado, Dividir celdas, ...) | ... y mucho más
Utiliza Kutools en tu idioma preferido: ¡compatible con Inglés, Español, Alemán, Francés, Chino y más de40 idiomas adicionales!

Impulsa al máximo tu dominio de Excel con Kutools para Excel y experimenta una eficiencia sin precedentes. Kutools para Excel ofrece más de300 funciones avanzadas para potenciar la productividad y ahorrar tiempo.Haz clic aquí para obtener la función que más necesitas...


Office Tab aporta una interfaz de pestañas a Office y hace tu trabajo mucho más sencillo

  • Habilita la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
  • Abre y crea varios documentos en nuevas pestañas de la misma ventana, en vez de en nuevas ventanas.
  • ¡Aumenta tu productividad hasta un50% y reduce cientos de clics de ratón cada día!