Las cookies nos ayudan a ofrecer nuestros servicios. Al utilizar nuestros servicios, usted acepta el uso de cookies.
Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Registro
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:

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!

Kutools for Word: Agregar 100 Nuevas funciones avanzadas a la palabra 2003 / 2007 / 2010 / 2013 / 2016 / 2019.
Office Tab: Habilitar Edición con pestañas y navegación en Office, Al igual que Chrome, Firefox, IE 8 / 9 / 10.
Classic Menu for Office: Devuelve el aspecto antiguo de Office 2003 Volver a Office 2007, 2010, 2013, 2016 y 2019.

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 Busca 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!




Kutools for Word

Más que 100 Funciones avanzadas para Word 2003, 2007, 2010, 2013, 2016 y 2019

shot-kutools-700-225-kte

Más características | Descargar libre | Solo $ 39.00 para cientos de funciones

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.
    martinadam · 1 months ago
    Thanks for sharing this information with us.
    Word search and replace tool
  • To post as a guest, your comment is unpublished.
    ankit saini · 2 months ago
    This is really good
  • To post as a guest, your comment is unpublished.
    nathalie · 3 months ago
    Works perfectly but is there a similar macro to change text in the header! because this does not work with this version!
    thanks
  • To post as a guest, your comment is unpublished.
    blds · 10 months ago
    Doesn't work for me on footers. e.g find FFSOSxxxx and replace with GGSOSxxxx, i can see this code is great for others pls help. :(
  • To post as a guest, your comment is unpublished.
    Kath · 11 months ago
    Hi there, is there a code for replacing with text that is multiple sentences, with bullet points and quotation marks in MS word using this code - which is fantastic !