Come trovare ed evidenziare paragrafi duplicati in un Documento Word?
Supponiamo che tu abbia un Documento Word di grandi dimensioni, che potrebbe contenere centinaia di pagine, e ora vuoi controllare se ci sono paragrafi duplicati per poi evidenziarli e renderli più visibili, in modo da poter gestire le frasi duplicate. Come potresti trovare ed evidenziare rapidamente e facilmente i paragrafi duplicati in un Documento Word?
Trova ed evidenzia i paragrafi duplicati in un Documento Word con il codice VBA
Trova ed evidenzia i paragrafi duplicati in un Documento Word con il codice VBA
Per trovare ed evidenziare i paragrafi duplicati in un Documento Word, il seguente codice VBA può aiutarti, procedi come segue:
1. Tieni premuti i tasti ALT + F11 per aprire la finestra Microsoft Visual Basic for Applications.
2. Successivamente, clicca su Inserisci > Modulo, copia e incolla il codice sottostante nel modulo vuoto appena aperto:
Codice VBA: Trova ed evidenzia i paragrafi duplicati in un Documento Word:
Sub highlightdup()
Dim I, J As Long
Dim xRngFind, xRng As Range
Dim xStrFind, xStr As String
Options.DefaultHighlightColorIndex = wdYellow
Application.ScreenUpdating = False
With ActiveDocument
For I = 1 To .Paragraphs.Count - 1
Set xRngFind = .Paragraphs(I).Range
If xRngFind.HighlightColorIndex <> wdYellow Then
For J = I + 1 To .Paragraphs.Count
Set xRng = .Paragraphs(J).Range
If xRngFind.Text = xRng.Text Then
xRngFind.HighlightColorIndex = wdBrightGreen
xRng.HighlightColorIndex = wdYellow
End If
Next
End If
Next
End With
End Sub
3. Quindi premi il tasto F5 per eseguire questo codice; tutti i paragrafi duplicati verranno evidenziati immediatamente. I primi paragrafi duplicati visualizzati saranno evidenziati in verde, mentre gli altri duplicati saranno evidenziati in giallo, vedi screenshot:
I migliori strumenti per la produttività in ufficio
Kutools per Word - Migliora la tua esperienza con Word grazie a oltre 100 straordinarie funzionalità!
🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida (Mantieni Formato) / Super Traduci (Mantieni Formato) / Redazione AI / Correzione AI...
📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Esporta selezione in vari formati (PDF/TXT/DOC/HTML...) / Converti in batch in PDF...
✏ Modifica dei Contenuti: Trova e sostituisci in batch su più file / Ridimensiona tutte le immagini / Trasponi righe e colonne delle tabelle / Converti Tabella in Testo...
🧹 Pulizia senza sforzo: Elimina Spazi Extra / Interruzioni di Sezione / Caselle di testo / Collegamenti ipertestuali / Per altri strumenti di rimozione, vai al gruppo Rimuovi...
➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Caselle di Controllo / Pulsanti di Opzione / Codice QR / Codice a Barre / Immagini multiple / Scopri di più nel gruppo Inserisci...
🔍 Selezioni precise: Individua pagine specifiche / Tabelle / Forme / Paragrafi di intestazione / Migliora la navigazione con ancora più funzionalità di Selezione...
⭐ Funzionalità Star: Vai in qualsiasi posizione / Inserimento automatico di testo ripetitivo / Passaggio tra finestre documento /11 strumenti di conversione...
🌍 Supporta oltre40 lingue: Usa Kutools nella tua lingua preferita – disponibile in Inglese, Spagnolo, Tedesco, Francese, Cinese e oltre40 altre!

I migliori strumenti per la produttività in ufficio
Kutools per Word - 100+ Strumenti per Word
- 🤖 Funzionalità AI di Kutools: Assistente AI / Assistente in Tempo Reale / Super Lucida / Super Traduci / Redazione AI / Correzione AI
- 📘 Maestria sui Documenti: Dividi Pagine / Unisci Documenti / Converti in batch in PDF
- ✏ Modifica dei Contenuti: Trova e sostituisci in batch / Ridimensiona tutte le immagini
- 🧹 Pulizia senza sforzo: Rimuovi Spazi Extra / Rimuovi Interruzioni di Sezione
- ➕ Inserimenti Creativi: Inserisci separatori delle migliaia / Inserisci Caselle di Controllo / Crea Codici QR
- 🌍 Supporta oltre40 lingue: Kutools parla la tua lingua – oltre40 lingue supportate!