One thing that may make it even better, is adding support for subdirectories. (That is: Files in multiple subdirectories)
I am an absolute newbie in this, and don't know the syntax, the parameter, or where to add that.
Could somebody help?
Si tiene varias docenas de archivos de palabras que contienen el mismo contenido (como encabezado, pie de página, algunas palabras o números especiales) y necesita reemplazar el mismo contenido en todos esos documentos en Word. ¿Cómo le resultaría más fácil hacerlo rápidamente? Ciertamente, puede abrir esos archivos uno por uno para reemplazar el mismo contenido, pero llevará 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.
Busque y reemplace textos en varios documentos de Word al mismo tiempo con el código VBA
Encuentre y reemplace fácilmente diferentes textos en múltiples documentos al mismo tiempo con Kutools para Word
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 el OK botón. Ver captura de pantalla:
5. En el primero Kutools for Word cuadro de diálogo, introduzca el texto que encontrará en los documentos en el Encuentra lo que cuadro, y luego haga clic en el OK botão.
6. En el segundo Kutools for Word cuadro de diálogo, ingrese el texto con el que reemplazará y haga clic en el OK botão.
8. Haga clic en el OK botón en el siguiente Microsoft Word cuadro de diálogo para finalizar la búsqueda y reemplazo.
En este caso, todas las palabras "Word" en los documentos seleccionados se reemplazan por "Excel" al mismo tiempo.
Aquí recomiendo encarecidamente el Buscar y reemplazar por lotes característica de Kutools for Word. Con esta función, puede encontrar y reemplazar fácilmente diferentes textos en varios documentos de Word al mismo tiempo. Veamos cómo aplicar esta función para buscar y reemplazar textos en documentos.
Kutools for Word : con más de 100 útiles complementos de Word, gratis para probar sin límite en 60 días.
1. Haga clic en Kutools Plus > Buscar y reemplazar por lotes para habilitar la característica.
2. En el Buscar y reemplazar por lotes cuadro de diálogo, configure de la siguiente manera.
3. Cierra el Buscar y reemplazar por lotes caja de diálogo
Para obtener más información sobre esta función, haga clic aquí ....
Si desea tener una prueba gratuita de esta utilidad, vaya a descarga gratis el software primero, y luego vaya a aplicar la operación según los pasos anteriores.