Accéder au contenu principal

Comment trouver et surligner les paragraphes en double dans un document Word ?

Author: Xiaoyang Last Modified: 2025-08-06

Supposons que vous ayez un long document Word contenant peut-être des centaines de pages, et maintenant, vous souhaitez vérifier s'il y a des paragraphes en double, puis les surligner pour les faire ressortir afin de pouvoir traiter ces phrases dupliquées. Comment pourriez-vous trouver et surligner rapidement et facilement les paragraphes en double dans un document Word ?

Trouver et surligner les paragraphes en double dans un document Word avec le code VBA


Trouver et surligner les paragraphes en double dans un document Word avec le code VBA

Pour trouver et surligner les paragraphes en double dans un document Word, le code VBA suivant peut vous aider, veuillez procéder comme suit :

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

2. Ensuite, cliquez sur Insérer > Module, copiez et collez le code ci-dessous dans le module vide qui s'ouvre :

Code VBA : Trouver et surligner 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. Puis appuyez sur la touche F5 pour exécuter ce code, toutes les phrases en double sont surlignées immédiatement. Les premiers paragraphes en double affichés sont surlignés en vert, et les autres doublons sont surlignés en jaune, voir capture d'écran :

All duplicate sentences highlighted with the first displayed duplicate paragraphs highlighted in green and other duplicates in yellow

Meilleurs outils de productivité pour Office

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

🤖 Fonctionnalités IA de Kutools: Assistant IA/ Assistant en Temps Réel/ Super Polir (Conserve la mise en forme)/ Super Traduire (Conserve la mise en forme)/ Rédaction IA/ Correction AI...

📘 Maîtrise des documents: Diviser des pages/ Fusionner les documents/ Exporter une sélection dans différents formats (PDF/TXT/DOC/HTML...)/ Conversion en lot vers PDF...

Édition de contenu: Recherche et remplacement en lot dans plusieurs fichiers/ Redimensionner toutes les images/ Transposer les lignes et colonnes de tableau/ Convertir le tableau en texte...

🧹 Nettoyage facile: Éliminez les espaces supplémentaires/ sauts de section/ zones de texte/ liens hypertexte/ Pour plus d’outils de suppression, consultez le groupe Supprimer...

Insertion créative: Insérez des séparateurs de milliers/ cases à cocher/ boutons radio/ code QR/ code-barres/ images multiples/ Découvrez-en plus dans le groupe Insérer...

🔍 Sélection avec précision: Ciblez des pages spécifiques / tableaux / formes / paragraphes de titre / Améliorez la navigation avec davantage de Sélectionner fonctionnalités...

Fonctionnalités phares: Accédez à n'importe quel emplacement/ Insertion automatique de textes répétitifs/ Basculez entre les fenêtres de document/11 outils de conversion...

🌍 Prise en charge de plus de40 langues: utilisez Kutools dans la langue de votre choix – Anglais, Espagnol, Allemand, Français, Chinois et plus de40 autres langues!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Vous souhaitez essayer ces fonctionnalités? Téléchargez Kutools pour Word dès maintenant! 🚀
 

Meilleurs outils de productivité pour Office

Kutools pour Word – 100+ outils pour Word