Skip to main content

Kutools voor Office — Eén Suite. Vijf Tools. Verwezenlijkt Meer.

Hoe selecteer of verwijder je tekst tussen twee bladwijzers in een Word-document?

Author Siluvia Last modified

Weet je hoe je de inhoud tussen twee bladwijzers in een Word-document kunt selecteren of verwijderen? Dit artikel laat je methoden zien om dit te doen.

Selecteer/verwijder tekst tussen twee bladwijzers met VBA

Selecteer/verwijder tekst tussen twee bladwijzers met VBA

Stel dat er twee bladwijzers in je document staan zoals in onderstaande schermafbeelding, dan kun je alle inhoud tussen deze twee bladwijzers selecteren of verwijderen met de volgende VBA-code.

Word diaplaying content between two bookmarks

1. Druk in het document op de toetsen Alt + F11 om het Microsoft Visual Basic for Applications-venster te openen.

2. Klik in het Microsoft Visual Basic for Applications-venster op Invoegen > Module en kopieer vervolgens onderstaande code naar het Module-venster.

Gebruik voor het selecteren of verwijderen van tekst tussen twee bladwijzers de volgende codes:

VBA-code: Selecteer tekst tussen twee gespecificeerde bladwijzers in Word:

Sub SelectBetweenBookmarks()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Select
End Sub

VBA-code: Verwijder tekst tussen twee gespecificeerde bladwijzers in Word:

Sub DeleteBetweenBookmarks ()
    Dim xRange As Range
    Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
    Set xRange = ActiveDocument.Content
    xBookMarkOne = InputBox("Please enter the start bookmark：", "Kutools for Word")
    xBookMarkTwo = InputBox("Please enter the end bookmark：", "Kutools for Word")
    Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
    Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
    If xBMone Is Nothing Or xBMtwo Is Nothing Then
        MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
        Exit Sub
    End If
    xRange.Start = xBMone.Range.End
    xRange.End = xBMtwo.Range.Start
    xRange.Delete
End Sub

3. Druk op de F5-toets om de code uit te voeren.

4. Voer in het eerste Kutools for Word dialoogvenster de naam van de startbladwijzer in het tekstvak in en klik op OK.

Dialog box for entering the start bookmark name

5. Voer in het tweede Kutools for Word dialoogvenster de eindbladwijzer in en klik op OK. Zie schermafbeelding:

Dialog box for entering the end bookmark name

Opmerking: Als de ingevoerde bladwijzer niet bestaat in het document, verschijnt er een ander Kutools for Word dialoogvenster om je eraan te herinneren de juiste in te voeren.

Alle inhoud tussen de gespecificeerde bladwijzers wordt onmiddellijk geselecteerd of verwijderd. Zie schermafbeeldingen.

Tekst selecteren tussen twee bladwijzers:

Content between the specified bookmarks are selected

Tekst verwijderen tussen twee bladwijzers.

Content between the specified bookmarks are deleted

Office Tab: Voegt tabbladinterfaces toe aan Word, Excel, PowerPoint...
Navigate through documents using Office Tab

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

Gratis downloaden Nu kopen Lees meer over Kutools