¿Cómo buscar y reemplazar varias palabras al mismo tiempo en un documento de Word?

Word proporciona una función de Buscar y Reemplazar para buscar todas las instancias de una palabra o frase y reemplazarlas con una nueva palabra al mismo tiempo. Pero si desea buscar y reemplazar diferentes palabras al mismo tiempo, esta función incorporada no puede ayudar. En este artículo, estamos hablando de un método VBA para buscar y reemplazar varias palabras diferentes al mismo tiempo en un documento de Word.

Encuentre y reemplace varias palabras al mismo tiempo en Word con código VBA
Encuentre y reemplace fácilmente varias palabras al mismo tiempo en Word con una característica sorprendente

Encuentre y reemplace varias palabras al mismo tiempo en Word con código VBA

Haga lo siguiente para buscar y reemplazar varias palabras al mismo tiempo en un documento de Word.

1. Abra el documento de Word que desea buscar y reemplace varias palabras al mismo tiempo, luego presione el otro + F11 teclas 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 código de VBA a continuación en la ventana del Módulo.

Código VBA: busque y reemplace varias palabras al mismo tiempo en Word

Sub FindAndReplaceMultiItems()
'Update by ExtendOffice 2018/10/25
    Dim xFind As String
    Dim xReplace As String
    Dim xFindArr, xReplaceArr
    Dim I As Long
    Application.ScreenUpdating = False
    xFind = InputBox("Enter items to be found here,seperated by comma: ", "Kutools for Word")
    xReplace = InputBox("Enter new items here, seperated by comma: ", "Kutools for Word")
    xFindArr = Split(xFind, ",")
    xReplaceArr = Split(xReplace, ",")
    If UBound(xFindArr) <> UBound(xReplaceArr) Then
        MsgBox "Find and replace characters must be equal.", vbInformation, "Kutools for Word"
        Exit Sub
    End If
    For I = 0 To UBound(xFindArr)
        Selection.HomeKey Unit:=wdStory
        With Selection.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = xFindArr(I)
            .Replacement.Text = xReplaceArr(I)
            .Format = False
            .MatchWholeWord = False
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next
    Application.ScreenUpdating = True
End Sub

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

4. En el primero Kutools for Word cuadro de diálogo, ingrese las palabras múltiples que encontrará y reemplazará en el cuadro de texto, sepárelas con una coma, luego haga clic en el OK botón. Ver captura de pantalla:

5. En el segundo Kutools for Word cuadro de diálogo, ingrese las nuevas palabras con las que reemplazará (estas palabras también deben estar separadas por comas), y luego haga clic en OK del botón.

Nota: En este caso, todos "KTE" en este documento será reemplazado por "Nuevo", y "KTO" y "KTW" será reemplazado con "Prueba" y "Terminar". Modifíquelos según sus necesidades.

Encuentre y reemplace fácilmente varias palabras al mismo tiempo en Word con una característica sorprendente

1. Inicie la aplicación Microsoft Word, haga clic en Kutools Más > Buscar y reemplazar por lotes.

2. En el Buscar y reemplazar por lotes ventana, configure de la siguiente manera.

• 2.1 haga clic en el botón> Agregar Archivo or Agregar carpeta para agregar uno o más documentos en los que encontrará y reemplazará varias palabras.
  
• 2.2 Haga clic en Agregar fila para insertar los campos de búsqueda y reemplazo. Si desea buscar y reemplazar tres textos diferentes al mismo tiempo, cree tres filas.
• 2.3 En cada fila, ingrese las palabras existentes que reemplazará por una nueva en el Encuentre columna y luego ingrese las nuevas palabras en la Reemplaza columna.
• 2.4 Especifique el Tipo de búsqueda por cada fila.
• 2.5 En el Encuentre en columna, elija dónde aplicar la búsqueda y reemplazo. Incluye Documento principal, Encabezamiento y Pie de página en esta sección. Puedes elegir uno de ellos, dos de ellos o todos en función de tus necesidades.
• 2.6. Haga clic en el Reemplaza para iniciar la operación. Ver captura de pantalla:

Luego, las palabras específicas se reemplazan en documentos seleccionados al mismo tiempo.

Consejo: Puede resaltar el resultado con color de fondo especificando cierto color en el Destacar columna para una fila.

  Si desea tener una prueba gratuita (60 días) de esta utilidad, haga clic para descargarloy luego vaya a aplicar la operación según los pasos anteriores.

Las mejores herramientas de productividad de oficina

Kutools for Word - Mejore su experiencia con Word con Over 100 ¡Características notables!

🤖 Asistente de IA de Kutools: Transforma tu escritura con IA - Generar contenido  /  Reescribir texto  /  Resumir documentos  /  Solicite información basado en el documento, todo dentro de Word

📘 Dominio del documento: Dividir páginas  /  Combinar documentos  /  Exportar selección en varios formatos (PDF/TXT/DOC/HTML...)  /  Convertir por lotes a PDF  /  Exportar páginas como imágenes  /  Imprima varios archivos a la vez...

✏ Edición de contenidos: Buscar y reemplazar por lotes en varios archivos  /  Cambiar el tamaño de todas las imágenes  /  Transponer filas y columnas de tabla  /  Convertir tabla en texto...

🧹 Limpieza sin esfuerzo: barrer Espacios extra  /  Saltos de sección  /  Todos los encabezados  /  Cuadros de texto  /  Los hipervínculos  / Para obtener más herramientas de extracción, diríjase a nuestro Quitar grupo...

➕ Inserciones creativas: Insertar Mil Separadores  /  Casillas de verificación  /  Botones de radio  /  Código QR   /  Barcode  /  Tabla de líneas diagonales  /  Título de la ecuación  /  Captura de imagen  /  Pie de tabla  /  Varias imágenes  / Descubre más en el Insertar grupo...

🔍 Selecciones de precisión: Localizar páginas específicas  /  tablas  /  formas  /  párrafos de encabezado  / Mejorar la navegación con más, Seleccionar características...

⭐ Mejoras de estrellas: Navegue rápidamente a cualquier ubicación  /  insertar automáticamente texto repetitivo  /  alternar sin problemas entre ventanas de documentos  /  11 herramientas de conversión...

👉 ¿Quieres probar estas funciones? Kutools para Word ofrece una prueba gratuita de 60 días.¡Sin limitaciones! 🚀

Descargar gratis     Leer Mas     COMPRAR AHORA