Skip to main content

Kutools voor Office โ€” Eรฉn Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe dubbele paragrafen in een Word-document te vinden en markeren?

Author Xiaoyang Last modified

Stel dat je een groot Word-document hebt dat mogelijk honderden pagina's telt, en nu wil je controleren of er dubbele paragrafen zijn en deze markeren om ze duidelijk zichtbaar te maken, zodat je de dubbele zinnen kunt verwerken. Hoe kun je snel en eenvoudig de dubbele paragrafen vinden en markeren in een Word-document?

Zoek en markeer de dubbele paragrafen in een Word-document met VBA-code


Zoek en markeer de dubbele paragrafen in een Word-document met VBA-code

Om de dubbele paragrafen in een Word-document te vinden en te markeren, kan de volgende VBA-code je helpen. Volg deze stappen:

1. Houd de toetsen ALT + F11 ingedrukt om het venster Microsoft Visual Basic for Applications te openen.

2. Klik vervolgens op Invoegen > Module, kopieer en plak de onderstaande code in de geopende lege module:

VBA-code: Zoek en markeer de dubbele paragrafen in een Word-document:

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. Druk vervolgens op de F5-toets om deze code uit te voeren. Alle dubbele zinnen worden tegelijk gemarkeerd. De eerst weergegeven dubbele paragrafen worden gemarkeerd in groen, en andere duplicaten worden gemarkeerd in geel. Zie screenshot:

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

Beste Office-productiviteitstools

Kutools for Word โ€“ Til uw Word-ervaring naar een hoger niveau met meer dan 100 indrukwekkende functies!

๐Ÿค– Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish (Opmaak behouden) / Super Vertalen (Opmaak behouden) / AI Redactie / AI Proeflezen...

๐Ÿ“˜ Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Oplossing exporteren in diverse opmaak (PDF/TXT/DOC/HTML...) / Batch converteren naar PDF...

โœ Tekst bewerken: Batch Zoeken en Vervangen in meerdere Bestanden / Formaat Wijzigen van alle Afbeeldingen / Tabel Transponeren (Rijen en Kolommen) / Tabel naar tekst converteren...

๐Ÿงน Moeiteloos schoonmaken: Veeg extra Spaties weg / Sectie-einden / Tekstvak / Hyperlinks / Voor meer Verwijderen-tools, bezoek de Verwijderen-groep...

โž• Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje / Keuzerondje / QR-code / Barcode / Meerdere Afbeeldingen / Ontdek meer bij de Invoegen-groep...

๐Ÿ” Precieze Selecties: Specifieke pagina's selecteren / Referentietabel / Vorm / Kopalinea / Verbeter navigatie met meer Selecteren -functies...

โญ Ster-upgrades: Navigeer naar elk Bereik / Herhaal tekst automatisch invoegen / Wissel tussen Document-vensters /11 Conversie-tools...

๐ŸŒ Ondersteunt meer dan40 Talen: Gebruik Kutools in uw gewenste taal โ€“ ondersteunt Engels, Spaans, Duits, Frans, Chinees en meer dan40 anderen!

Kutools and Kutools Plus tabs on the Word Ribbon
๐Ÿ‘‰ Wilt u deze functies proberen? Download Kutools for Word nu! ๐Ÿš€
 

โœจ Kutools for Office โ€“ ร‰รฉn installatie, vijf krachtige tools!

Inclusief Office Tab Pro ยท Kutools for Excel ยท Kutools for Outlook ยท Kutools for Word ยท Kutools for PowerPoint

๐Ÿ“ฆ Krijg alle5 tools in รฉรฉn pakket | ๐Ÿ”— Naadloze integratie met Microsoft Office | โšก Bespaar tijd en verhoog direct uw productiviteit

Beste Office-productiviteitstools

Kutools for Word โ€“ 100+ tools voor Word