Hoe dubbele paragrafen in een Word-document te vinden en markeren?
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:
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 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
- ๐ค Kutools AI Features: AI Assistent / Realtime Assistent / Super Polish / Super Vertalen / AI Redactie / AI Proeflezen
- ๐ Documentbeheer: Pagina's opsplitsen / Documenten samenvoegen / Batch converteren naar PDF
- โ Tekst bewerken: Batch Zoeken en Vervangen / Formaat Wijzigen van alle Afbeeldingen
- ๐งน Moeiteloos schoonmaken: Verwijder extra spaties / Verwijder sectie-einden
- โ Creatieve invoegingen: Duizendtalscheidingsteken invoegen / Selectievakje invoegen / QR-codes maken
- ๐ Ondersteunt meer dan40 Talen: Kutools spreekt uw taal โ meer dan40 talen ondersteund!