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



Outils de productivité Word recommandés

Kutools For Word - Plus de fonctionnalités avancées 100 pour Word, économisez votre% de temps 50

  • Des opérations compliquées et répétées peuvent être effectuées en une seconde.
  • Insérez plusieurs images sur des dossiers dans un document Word à la fois.
  • Fusionner et combiner plusieurs fichiers Word sur plusieurs dossiers en un seul avec votre ordre souhaité.
  • Divisez le document actuel en documents distincts en fonction de l'en-tête, du saut de section ou d'un autre critère.
  • Convertir des fichiers entre Doc et Docx, Docx et PDF, une collection d'outils pour les conversions et la sélection courantes, etc.
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.
    Alex · 3 months ago
    It throws Compile error: Syntax error, the code is 100% as the example.
  • To post as a guest, your comment is unpublished.
    dvid · 1 years 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 · 1 years ago
    Tentei e não funcionou, só da que parou de funcionar.