Tip: andere talen zijn Google-Vertaald. Je kunt het English versie van deze link.
Log in
x
or
x
x
Registreren
x

or

Hoe tekst selecteren of verwijderen tussen twee bladwijzers in een Word-document?

Weet u hoe u de inhoud tussen twee bladwijzers in een Word-document selecteert of verwijdert? Dit artikel laat je methoden zien om ermee om te gaan.

Selecteer / verwijder tekst tussen twee bladwijzers met VBA


Selecteer / verwijder tekst tussen twee bladwijzers met VBA

Stel dat er zich twee bladwijzers in uw document bevinden, zoals hieronder getoond, dan kunt u alle inhoud tussen deze twee bladwijzers selecteren of verwijderen met de volgende VBA-code.

1. Druk in het document op anders + F11 toetsen om de te openen Microsoft Visual Basic voor toepassingen venster.

2. In de Microsoft Visual Basic voor toepassingen venster klikt bijvoegsel > module, kopieer vervolgens onderstaande code naar het modulevenster.

Gebruik deze code voor het selecteren of verwijderen van teksten tussen twee bladwijzers:

VBA-code: selecteer tekst tussen twee opgegeven 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 opgegeven 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 de F5 sleutel om de code uit te voeren.

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

5. In de seconde Kutools for Word dialoogvenster, voer de eindbladwijzer in en klik op OK. Zie screenshot:

Notes: Als de bladwijzernaam die u hebt ingevoerd niet in een document bestaat, verschijnt er een ander Kutools voor Word-dialoogvenster dat u eraan herinnert dat u de juiste hebt ingevoerd.

Vervolgens wordt alle inhoud tussen de opgegeven bladwijzers onmiddellijk geselecteerd of verwijderd. Zie screenshots.

Selecteer teksten tussen twee bladwijzers:

Verwijder teksten tussen twee bladwijzers.



Aanbevolen Word-productiviteitstools

Kutools voor Word - meer dan 100 geavanceerde functies voor Word, bespaar uw 50% tijd

  • Gecompliceerde en herhaalde bewerkingen kunnen eenmalig worden uitgevoerd in seconden.
  • Voeg meerdere afbeeldingen in meerdere mappen tegelijk in Word-documenten in.
  • Voeg meerdere Word-bestanden samen en combineer ze tot één map met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten volgens kop, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
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.

Be the first to comment.