Astuce: Les autres langues sont Google-Traduction. Vous pouvez visiter le English version de ce lien.
Se connecter
x
or
x
x
S'enregistrer
x

or

Comment trouver et mettre en évidence des paragraphes en double dans un document Word?

En supposant que vous ayez un document Word volumineux pouvant contenir des centaines de pages, vous voulez maintenant vérifier s'il y a des paragraphes en double et les mettre en surbrillance pour que vous puissiez gérer les phrases en double. Comment pourriez-vous trouver et mettre en évidence les paragraphes en double rapidement et facilement dans un document Word?

Rechercher et mettre en évidence les paragraphes en double dans le document Word avec le code VBA


Rechercher et mettre en évidence les paragraphes en double dans le document Word avec le code VBA

Pour trouver et mettre en évidence les paragraphes en double dans un document Word, le code VBA suivant peut vous être utile, veuillez procéder comme suit:

1. Maintenez le ALT + F11 clés pour ouvrir le Microsoft Visual Basic pour applications fenêtre.

2. Et puis, cliquez insérer > Module, copiez et collez le code ci-dessous dans le module vide ouvert:

Code VBA: recherchez et mettez en évidence les paragraphes en double dans le 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. Et puis appuyez sur F5 Pour exécuter ce code, toutes les phrases en double sont surlignées en même temps, les premiers paragraphes en double affichés sont surlignés en vert et les autres en double sont surlignés en jaune. Voir la capture d'écran:

doc mettre en évidence les phrases dup 1



Kutools for Word

Plus que des fonctions avancées 100 pour Word 2003, 2007, 2010, 2013, 2016 et 2019

coup-kutools-700-225-kte

Plus de fonctionnalités | Essai Gratuit | Seulement $ 39.00 pour des centaines de fonctions

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    dvid · 6 months ago
    I tried, and it works fine!
    I just wanted to know - could I do the same thing - but not a whole paragraph, but a sentence with a few words I'd set up - like 10 words?
  • To post as a guest, your comment is unpublished.
    Juliana · 6 months ago
    Tentei e não funcionou, só da que parou de funcionar.