Comment rechercher et mettre en évidence les paragraphes en double dans un document Word ?

Supposons que vous disposiez d’un volumineux document Word pouvant compter des centaines de pages, et que vous souhaitiez vérifier s’il contient des paragraphes dupliqués, puis les mettre en évidence afin qu’ils soient facilement identifiables, vous permettant ainsi de traiter ces phrases redondantes. Comment trouver et mettre en évidence rapidement et facilement les paragraphes en double dans un document Word ?

Rechercher et mettre en évidence les paragraphes en double dans un document Word à l’aide d’un code VBA

Rechercher et mettre en évidence les paragraphes en double dans un document Word à l’aide d’un code VBA

Pour rechercher et mettre en évidence les paragraphes en double dans un document Word, le code VBA suivant vous sera très utile. Suivez ces étapes :

1. Maintenez enfoncées les touches ALT + F11 pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2. Cliquez ensuite sur Insertion > Module, puis copiez-collez le code ci-dessous dans le module vierge qui s’ouvre :

Code VBA : Rechercher et mettre en évidence les paragraphes en double dans un document 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. Appuyez ensuite sur la touche F5 pour exécuter ce code. Toutes les phrases en double sont immédiatement mises en évidence : les premières occurrences de paragraphes dupliqués apparaissent surlignées en vert, et les suivantes en jaune. Voir la capture d’écran :

Meilleurs outils de productivité Office

Kutools pour Word – Améliorez votre expérience Word avec plus de 100 fonctionnalités remarquables !

🤖Fonctionnalités Kutools IA : Assistant IA / Assistant en Temps Réel / Super Polish (conserver le format) / Super Traduire (conserver le format) / Rédaction IA / Correction IA…

📘Maîtrisez vos documents : divisez les pages, fusionnez les documents, exportez la sélection dans divers formats (PDF, TXT, DOC, HTML…) ou convertissez-les par lots en PDF…

✏Édition du contenu : Recherche et remplacement en lot dans plusieurs fichiers / Redimensionner toutes les images / Transposer les lignes et colonnes d’un tableau / Convertir un tableau en texte…

🧹Nettoyage simplifié : supprimez en un clin d’œil les espaces superflus, les sauts de section, les zones de texte ou les liens hypertexte. Pour encore plus d’outils de suppression, rendez-vous dans le groupe Supprimer…

➕Insertions créatives : insérez des séparateurs de milliers, une case à cocher, un bouton radio, un code QR, un code-barres ou plusieurs images. Découvrez-en davantage dans le groupe Insertion…

🔍Sélections précises : ciblez exactement les pages spécifiques, les tableaux, les formes ou les paragraphes de titre. Améliorez votre navigation grâce à davantage de fonctions de dé sélection…

⭐Améliorations phares : Naviguer vers n’importe quel emplacement / Insérer automatiquement du texte répétitif / Basculer entre les documents Windows / 11 outils de conversion Outils de...

🌍Prend en charge plus de 40 langues : Utilisez Kutools dans votre langue préférée – disponible en anglais, espagnol, allemand, français, chinois et plus de 40 autres langues !

 

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

Office Tab- Apporte une interface à onglets à Office et rend votre travail bien plus facile

• Activez l’édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
• Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
• Augmente votre productivité de 50 % et vous fait économiser des centaines de clics de souris chaque jour !

Téléchargement gratuit     Acheter maintenant     En savoir plus

 

---

✨ Kutools for Office – Une installation, cinq outils puissants !

Inclus Office Tab Pro·Kutools pour Excel·Kutools pour Outlook·Kutools pour Word·Kutools for PowerPoint

📦 Obtenez les 5 outils dans une seule suite | 🔗 Intégration transparente avec Microsoft Office | ⚡ Gagner du temps et boostez immédiatement votre productivité

⬇️ Télécharger maintenant🎁 Acheter la suite complète📖 En savoir plus

Meilleurs outils de productivité Office

Kutools pour Word- Outils 100+ pour Word

• 🤖Kutools IA Fonctionnalités:Assistant IA/Assistant en Temps Réel/Super Polish/Super Traduire/Rédaction IA/Correction AI
• 📘Maîtrise des documents:Diviser les pages/Fusionner les documents/Conversion par lots en PDF
• ✏Édition du contenu:Recherche et remplacement en lot/Redimensionner toutes les images
• 🧹Nettoyage simplifié:Supprimer les espaces superflus/Supprimer Saut de section
• ➕Insertions créatives:Insérer des séparateurs de milliers/Insérer Case à cocher/Créer Code QR
• 🌍Prend en charge plus de 40 langues : Kutools parle votre langue – plus de 40 langues disponibles !

Téléchargement gratuitAcheter maintenantEn savoir plus sur Kutools