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 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 especiales o números), y necesita reemplazar el mismo contenido en esos documentos en Word. ¿Cómo sería más fácil para usted hacerlo rápidamente? Ciertamente, puede abrir esos archivos uno por uno para reemplazar el mismo contenido, pero requerirá 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.

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


Combine / combine varios documentos en uno fácilmente:

La Fusionar documentos utilidad de Kutools for Word puede ayudarle a combinar múltiples documentos en uno rápidamente. Solo necesitas hacer lo siguiente:

  • Seleccione los documentos que combinará en uno;
  • Especifique la pausa entre cada documento combinado;
  • Comience a fusionarse. Ver captura de pantalla:

Kutools for Word: con más de 100 complementos de Word prácticos, de prueba sin límite en días 30. Descargar y prueba gratis ahora!

Encuentre y reemplace textos en múltiples 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 OK botón. Ver captura de pantalla:

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

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

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

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


Office Tab - Navegación con pestañas, edición y administración de múltiples documentos en Word:

Office Tab trae la interfaz con pestañas como se ve en los navegadores web como Google Chrome, las nuevas versiones de Internet Explorer y Firefox a Microsoft Word. Eso va a ser una herramienta de ahorro de tiempo e irremplazable en su trabajo. Vea la demostración a continuación:

¡Haz clic para obtener una versión de prueba gratuita de Office Tab!




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.
    Pia · 4 years ago
    I am sorry but I have no idea re the headers or the format. It was not something I needed to include in my code. I had never used this before myself and the code I posted was taken from the original code above and then tweeked using code found in other searches until it worked. I am sorry I cant be of more help.
  • To post as a guest, your comment is unpublished.
    sathena99 · 4 years ago
    Thanks for posting this! I've run a couple tests and gotten it to work for me; however, it's not working on text in headers and footers for some reason. Is there a fix for this?
  • To post as a guest, your comment is unpublished.
    WORDZ · 4 years ago
    Big THX 4 the code... but also have that prblm with the headers... no change

    Thanks in advance
  • To post as a guest, your comment is unpublished.
    Nilesh · 4 years ago
    I want to change the format of the replaces text. i.e. "Pizza" has to be replaced with "[i]Burger[/i]".
    How can it be achieved?
  • To post as a guest, your comment is unpublished.
    Judy · 4 years ago
    Hello,
    This worked great for the word in the body of the document but did not replace the same word in the header. Any ideas.

    Thanks