Hoe selecteert of verwijdert u tekst tussen twee bladwijzers in een Word-document?

Weet u hoe u de inhoud tussen twee bladwijzers in een Word-document kunt selecteren of verwijderen? In dit artikel worden handige methodes hiervoor uitgelegd.

Tekst tussen twee bladwijzers selecteren/verwijderen met VBA

---

Tekst tussen twee bladwijzers selecteren/verwijderen met VBA

Stel dat uw document twee bladwijzers bevat, zoals in de onderstaande schermafbeelding is weergegeven. Met de volgende VBA-code kunt u alle inhoud tussen deze twee bladwijzers selecteren of verwijderen.

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

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

Gebruik de onderstaande codes om tekst tussen twee bladwijzers te selecteren of te verwijderen:

VBA-code: Tekst tussen twee opgegeven bladwijzers in Word selecteren:

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: Tekst tussen twee opgegeven bladwijzers in Word verwijderen:

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 toets F5 om de code uit te voeren.

4. Voer in het eerste Kutools voor Word-dialoogvenster de beginbladwijzer in het tekstvak in en klik op OK.

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

Opmerking: Als de ingevoerde bladwijzernaam niet in het document bestaat, verschijnt er nog een Kutools voor Word-dialoogvenster dat u eraan herinnert de juiste naam in te voeren.

Vervolgens wordt alle inhoud tussen de opgegeven bladwijzers direct geselecteerd of verwijderd. Zie de schermafbeeldingen.

Tekst tussen twee bladwijzers selecteren:

Tekst tussen twee bladwijzers verwijderen.