Come trovare e sostituire più testi in Word utilizzando Excel?
AutoreXiaoyang•Data di modifica
In Microsoft Word, la funzione Trova e sostituisci è un metodo efficiente per individuare e sostituire rapidamente testo specifico. Tuttavia, quando devi sostituire più termini diversi, inserirli manualmente uno per uno può rivelarsi un’operazione lunga e dispendiosa in termini di tempo.
Per semplificare questa operazione, puoi sfruttare Excel per creare un elenco dei testi da cercare e sostituire, automatizzando l’intero processo con una semplice macro VBA. Questa guida ti mostra come utilizzare Excel e VBA per eseguire operazioni di Trova e sostituisci su più testi all’interno di un singolo documento Word. Inoltre, scoprirai come estendere la procedura a più documenti e avrai un’anteprima di una potente funzionalità di Kutools per la sostituzione batch del testo.
Trova e sostituisci più testi in un documento di Word da Excel con codice VBA
Se desideri trovare e sostituire alcuni testi in un singolo file di Word, il seguente codice VBA può esserti d’aiuto.
1. Nel foglio di lavoro di Excel, crea una colonna con i testi da cercare e sostituire e un’altra colonna con i relativi testi sostitutivi, come mostrato nell’immagine seguente. Premi quindi contemporaneamente i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications.
2. Fare quindi clic su Inserisci > Modulo, quindi copiare e incollare il seguente codice VBA nella finestra.
Codice VBA: Trova e sostituisci più testi in un file di Word
Sub replace_texts_range_of_cells()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFileDlg As FileDialog
On Error GoTo ExitSub
Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
xFileDlg.AllowMultiSelect = False
xFileDlg.Filters.Add "Word Document", "*.docx; *.doc; *.docm"
xFileDlg.FilterIndex = 2
If xFileDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges):", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
GoTo ExitSub
End If
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
Set xDoc = xWordApp.Documents.Open(xFileDlg.SelectedItems.Item(1))
For I = 1 To xRng.Areas.Item(1).Cells.Count
With xDoc.Application.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xRng.Areas.Item(1).Cells.Item(I).Value
.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
ExitSub:
Set xRng = Nothing
Set xFileDlg = Nothing
Set xWordApp = Nothing
Set xDoc = Nothing
End Sub
3. Nella finestra Microsoft Visual Basic, Applications, dopo aver incollato il codice, fai clic su Strumenti > Riferimenti, vedi immagine:
4. Nella finestra di dialogo Riferimenti – VBAProject visualizzata, seleziona dalla casella elenco Microsoft Word 16,0 Object Library, vedi immagine:
5. Fare clic sul pulsante OK per chiudere la finestra di dialogo, quindi premere il tasto F5 per eseguire il codice. Nella finestra Sfoglia visualizzata, selezionare il file di Word in cui sostituire i testi, vedi immagine:
6. Fare quindi clic su OK. Nella finestra di dialogo successiva, tenere premuto il tasto Ctrl per selezionare separatamente le celle di Testo Originale e Testo Nuovo da utilizzare, vedi immagine:
7. Fare infine clic sul pulsante OK. I testi vengono ora trovati e sostituiti con il Testo Nuovo nel documento specificato, e il file viene aperto automaticamente; ricordati di salvarlo per mantenere le modifiche.
Trova e sostituisci più testi in più documenti di Word da Excel con codice VBA
È stato creato anche un codice VBA per aiutarti a trovare e sostituire più testi in più documenti di Word. Segui questi passaggi:
1. Apri il file Excel contenente due colonne con i valori da sostituire e quelli con cui sostituirli, come mostrato nell’immagine seguente, quindi premi contemporaneamente i tasti Alt+F11 per aprire la finestra Microsoft Visual Basic, Applications.
2. Fare quindi clic su Inserisci>Modulo, quindi copiare e incollare il codice VBA seguente nella finestra.
Codice VBA: Trova e sostituisci più testi in più file di Word
Sub FindReplaceAcrossMultipleWordDocuments()
'Updateby ExtendOffice
Dim xWordApp As Word.Application
Dim xDoc As Word.Document
Dim xRng As Range
Dim I As Integer
Dim xFolderDlg As FileDialog
Dim xFSO As Scripting.FileSystemObject
Dim xFile As File
On Error GoTo ExitSub
Set xFolderDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xFolderDlg.Show <> -1 Then GoTo ExitSub
Set xRng = Application.InputBox("Please select the lists of find and replace texts (Press Ctrl key to select two same size ranges", "Kutools for Excel", , , , , , 8)
If xRng.Areas.Count <> 2 Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size", vbInformation + vbOKOnly, "Kutools for Excel"
GoTo ExitSub
End If
If (xRng.Areas.Item(1).Rows.Count <> xRng.Areas.Item(2).Rows.Count) Or _
(xRng.Areas.Item(1).Columns.Count <> xRng.Areas.Item(2).Columns.Count) Then
MsgBox "Please select two columns (press Ctrl key), the two ranges have the same size.", vbInformation + vbOKOnly, "Kutools for Excel"
GoTo ExitSub
End If
Set xFSO = New Scripting.FileSystemObject
Set xWordApp = CreateObject("Word.application")
xWordApp.Visible = True
For Each xFile In xFSO.GetFolder(xFolderDlg.SelectedItems(1)).Files
If VBA.InStr(xFile.Type, "Microsoft Word") > 0 Then
Set xDoc = xWordApp.Documents.Open(xFile.Path)
For I = 1 To xRng.Areas.Item(1).Cells.Count
With xDoc.Application.Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = xRng.Areas.Item(1).Cells.Item(I).Value
.Replacement.Text = xRng.Areas.Item(2).Cells.Item(I).Value
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
xDoc.Application.Selection.Find.Execute Replace:=wdReplaceAll
Next
xDoc.Close wdSaveChanges
End If
Next
xWordApp.Quit
MsgBox "The Find and Replace has been completed", vbInformation + vbOKOnly, "Kutools for Excel"
ExitSub:
Set xRng = Nothing
Set xFolderDlg = Nothing
Set xWordApp = Nothing
Set xDoc = Nothing
End Sub
3. Sempre nella finestra Microsoft Visual Basic, Applications, fai clic su Strumenti > Riferimenti. Nella finestra di dialogo Riferimenti – VBAProject, seleziona dall’elenco le opzioni Microsoft Word 16,0 Object Library e Microsoft Scripting Runtime. Vedi immagine:
4. Dopo aver selezionato le due opzioni, fai clic su OK per chiudere la finestra di dialogo, quindi premi il tasto F5 per eseguire il codice. Nella finestra Sfoglia visualizzata, scegli una cartella contenente i documenti di Word su cui eseguire Trova e sostituisci. Vedi immagine:
5. Fare clic sul pulsante OK. Nella finestra di dialogo visualizzata, tenere premuto il tasto Ctrl per selezionare separatamente le colonne di Testo Originale e Testo Nuovo da utilizzare, vedi immagine:
6. Infine, fai clic su OK. I testi originali verranno sostituiti con i nuovi in tutti questi file; al termine, verrà visualizzata una finestra di dialogo come nell’immagine seguente:
7. Fare clic su OK per chiudere la finestra di dialogo. È quindi possibile aprire i file per verificare i risultati della conversione.
Trova e sostituisci più testi in più documenti di Word con una funzionalità avanzata
In questa sezione ti mostreremo come cercare e sostituire in batch del testo in più documenti di Word direttamente da Word, senza dover ricorrere a Excel. Grazie alla potente funzionalità Kutools per Word, puoi individuare rapidamente testi specifici e sostituirli con nuovi contenuti nel corpo principale, nelle intestazioni, nei piè di pagina, nei commenti e in altre aree—con la possibilità di evidenziare i risultati, se necessario.
Kutools per Word
Kutools per Word ti permette di gestire più rapidamente le attività quotidiane sui documenti grazie a strumenti pratici integrati direttamente in Microsoft Word—senza codifica e senza configurazioni complesse.
Scrittura, perfezionamento, traduzione e sintesi con intelligenza artificiale
1. Apri un file di Word, quindi fai clic su KUTOOLS PLUS > Trova e sostituisci in batch. Vedi immagine:
2. Nella finestra di dialogo Trova e sostituisci in batch aperta, esegui le seguenti operazioni:
Fare clic sul pulsante Aggiungiper aggiungere i file di Word in cui si desidera Trova e sostituisci testi;
Nel riquadro sinistro, fare clic su Aggiungi Riganella parte superiore di Barra multifunzione;
Nel campo inserito, immettere separatamente nella colonna Trova e Sostituisci il testo originale e il testo nuovo che si desidera trovare e sostituire. È inoltre possibile specificare un colore per evidenziare i testi sostituiti in base alle proprie esigenze.
3. Dopo aver definito i criteri di ricerca, fai clic sul pulsante Sostituisci per passare alla scheda Anteprima risultati e visualizzare i risultati di Trova e sostituisci. Vedi immagine:
4. Fare quindi clic sul pulsante Chiudi. Verrà visualizzata una finestra di avviso che chiede se si desidera salvare questo scenario: fare clic su Sì per salvarlo oppure su No per ignorarlo. Vedi immagine:
Suggerimenti: questa funzionalità consente anche di eseguire le seguenti operazioni:
caratteri speciali in più documenti di Word;
più stringhe con formattazione specifica in più documenti di Word;
Fai di più in meno tempo con Kutools per Word potenziato dall’IA
Kutools per Word non è solo una raccolta di strumenti: è una soluzione intelligente pensata per potenziare la tua produttività. Grazie alle funzionalità basate sull’intelligenza artificiale e agli strumenti essenziali, Kutools ti permette di fare di più in meno tempo:
Riassumi, riscrivi, componi e traduci contenuti in un istante.
Correggi il testo in tempo reale con suggerimenti su grammatica, punteggiatura e stile mentre scrivi.
Riformula e traduci i contenuti, mantenendo invariati layout, stile e struttura.
Traduci i tuoi contenuti in oltre 40 lingue con facilità, raggiungendo un pubblico globale.
Ottieni assistenza immediata e informazioni intelligenti basate sul tuo Documento Corrente.
Chiedi come completare un’attività – ad esempio rimuovere un’interruzione di sezione – e l’intelligenza artificiale ti guiderà passo passo o lo farà al posto tuo.
Oscura in pochi secondi informazioni sensibili o riservate per garantirti la massima privacy.
Tutti gli strumenti funzionano alla perfezione direttamente in Word, sempre a portata di mano.
Crea, migliora, traduci, riassumi e proteggi i tuoi documenti in tutta semplicità.
Migliora grammatica, chiarezza e tono mentre scrivi, in tempo reale.
Riformula e traduci i contenuti senza apportare alcuna modifica al layout o alla formattazione.
Chiedi come completare un’attività – ad esempio rimuovere un’interruzione di sezione – e l’intelligenza artificiale ti guiderà passo passo o lo farà al posto tuo.
Tutti gli strumenti funzionano perfettamente in Word, sempre a portata di mano.
Usa Kutools nella tua lingua preferita – supporta inglese, spagnolo, tedesco, francese, cinese e 40+ altre!
Potenzia le tue competenze in Excel con Kutools per Excel e sperimenta un’efficienza mai vista prima.Kutools per Excel offre oltre 300 funzionalità avanzate per aumentare la produttività e Risparmia tempo.Clicca qui per ottenere la funzionalità di cui hai più bisogno...
Tutti i componenti aggiuntivi di Kutools in un unico programma di installazione.
Kutools for Office è la suite che include componenti aggiuntivi per Excel, Word, Outlook e PowerPoint, oltre a Office Tab Pro: la soluzione ideale per i team che lavorano su diverse app di Office.
Suite completa— componenti aggiuntivi per Excel, Word, Outlook e PowerPoint + Office Tab Pro
Un unico programma di installazione, una sola licenza— configurazione in pochi minuti (pronto per MSI)
Funziona meglio insieme— produttività ottimizzata tra le app di Office
Prova gratuita di 30 giorni con tutte le funzionalità— nessuna registrazione, nessuna carta di credito
Miglior rapporto qualità-prezzo— risparmia rispetto all’acquisto dei singoli componenti aggiuntivi
