Come cercare e sostituire in più file in Word?

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

Trova e sostituisci i testi su più documenti di parole contemporaneamente con il codice VBA

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.

Trova e sostituisci facilmente testi diversi su più documenti contemporaneamente con Kutools per Word

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.

• 2.1) Fare clic su Aggiungere Row pulsante sotto il Trova e sostituisci scheda;
• 2.2) Nei campi riga creati:

• 2.3) Ripeti i passaggi 2.1 e 2.2 per aggiungere altri testi che troverai e sostituirai;
• 2.4) Fare clic su  nel pulsante Tipo di file sezione per aggiungere i documenti Word in cui troverai e sostituirai i testi;
• 2.5) Fare clic su sostituire or Trova pulsante. Vedi screenshot:

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.

Strumenti di produttività Word consigliati