¿Cómo encontrar y reemplazar múltiples textos en Word usando Excel?
Author: XiaoyangLast 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
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.
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:
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:
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:
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:
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.
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:
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:
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:
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:
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:
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.
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:
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 Sí para guardarlo, y en No para ignorarlo, ver captura de pantalla:
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 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.
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...