Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

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

Encuentre y reemplace múltiples palabras al mismo tiempo en Word con el código VBA


Encuentre y reemplace múltiples palabras al mismo tiempo en Word con el código VBA

Haga lo siguiente para encontrar 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 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 debajo del código VBA en la ventana del Módulo.

Código VBA: encuentra y reemplaza 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 múltiples palabras que encontrará y reemplace en el cuadro de texto, y 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 que reemplazará (estas palabras también deben estar separadas por comas) y luego haga clic en OK 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". Por favor cámbialas a tus necesidades.



Herramientas recomendadas de productividad de palabras

Kutools para Word: más que las funciones avanzadas de 100 para Microsoft Word, ahorre su tiempo de 50

  • Las operaciones complicadas y repetidas se pueden realizar una sola vez en segundos.
  • Inserte varias imágenes a través de carpetas en el documento de Word a la vez.
  • Combine y combine varios archivos de Word en carpetas en uno con su orden deseado.
  • Divida el documento actual en documentos separados según el encabezado 1, el salto de sección u otros criterios.
  • Convierta archivos entre Doc y Docx, Docx y PDF, colección de herramientas para conversiones y selección comunes, y así...
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    rishabh jain · 21 days ago
    will this work in office Excel 365
  • To post as a guest, your comment is unpublished.
    jaka1 · 3 months ago
    Toto jsem hledal, jen potřebuji pro hledaný text přidat nějaké formátování. Jak toho dosáhnu?