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?
Se hai diverse dozzine di file di parole che contengono lo stesso contenuto (come intestazione, piè di pagina, alcune parole speciali o un numero) e devi sostituire lo stesso contenuto in quei documenti in Word. Come sarebbe più facile per te farlo rapidamente? Certo, puoi aprire quei file uno per uno per sostituire lo stesso contenuto, ma sarà dispendioso in termini di tempo e fastidioso. Questo tutorial ti mostrerà un modo complicato per sostituire lo stesso contenuto all'interno di più documenti in Word contemporaneamente.
Trova e sostituisci i testi su più documenti di parole contemporaneamente con il codice VBA
Trova e sostituisci facilmente testi diversi su più documenti contemporaneamente con Kutools per Word
1. Stampa altro + F11 per aprire il Microsoft Visual Basic, Applications Edition finestra.
2. Nel Microsoft Visual Basic, Applications Edition finestra, fare clic inserire > Modulo, quindi copia il seguente codice VBA nella finestra del modulo.
Codice VBA: ricerca e sostituzione dello stesso contenuto su più documenti contemporaneamente
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. premi il F5 chiave per eseguire il codice.
4. In apertura Navigare finestra, trova e seleziona i documenti che troverai e sostituisci il testo all'interno, quindi fai clic su OK pulsante. Vedi screenshot:
5. Nella prima Kutools for Word finestra di dialogo, inserisci il testo che troverai nei documenti nel file Trova quello che casella, quindi fare clic su OK pulsante.
6. Nella seconda Kutools for Word finestra di dialogo, immettere il testo da sostituire e fare clic su OK pulsante.
8. Fare clic sul OK pulsante nel prossimo Microsoft Word finestra di dialogo per terminare la ricerca e la sostituzione.
In questo caso, tutte le parole "Word" nei documenti selezionati vengono sostituite con "Excel" contemporaneamente.
Qui consiglio vivamente il Trova e sostituisci in batch caratteristica di Kutools for Word. Con questa funzione, puoi facilmente trovare e sostituire testi diversi su più documenti di Word nello stesso momento. Vediamo come applicare questa funzione per trovare e sostituire i testi nei documenti.
Kutools for Word : con più di 100 utili componenti aggiuntivi di Word, libero di provare senza limitazioni in 60 giorni.
1. Fare clic su Kutools Plus > Trova e sostituisci in batch per abilitare la funzione.
2. Nel Trova e sostituisci in batch finestra di dialogo, configurare come segue.
3. Chiudi il Trova e sostituisci in batch Finestra di dialogo
Per ulteriori informazioni su questa funzione, per favore clicca qui....
Se vuoi avere una prova gratuita di questa utility, vai su scarica gratuitamente il software prima, quindi vai ad applicare l'operazione secondo i passaggi precedenti.