Sådan vælger eller sletter du tekst mellem to bogmærker i Word dokumentere?

Ved du, hvordan du vælger eller sletter indholdet mellem to bogmærker i en Word dokument? Denne artikel vil vise dig metoder til at håndtere det.

Vælg / slet tekst mellem to bogmærker med VBA

Vælg / slet tekst mellem to bogmærker med VBA

Hvis vi antager, at der er to bogmærker i dit dokument som vist nedenfor, kan du vælge eller slette alt indhold mellem disse to bogmærker med følgende VBA-kode.

1. I dokumentet skal du trykke på andre + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.

2. i Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler, kopier derefter nedenstående kode til modulvinduet.

Brug denne kode til at vælge eller slette tekster mellem to bogmærker:

VBA-kode: Vælg tekst mellem to angivne bogmærker i 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-kode: Slet tekst mellem to angivne bogmærker i 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. Tryk på F5 nøgle for at køre koden.

4. I den første Kutools for Word dialogboksen, skal du indtaste navnet på startbogmærket i tekstboksen og klikke på OK.

5. I det andet Kutools for Word dialogboksen, skal du indtaste slutbogmærket og klikke på OK. Se skærmbillede:

Bemærk: Hvis det bogmærkenavn, du indtastede, ikke findes i dokumentet, kan et andet Kutools for Word dialogboksen vil dukke op for at minde dig om at indtaste den rigtige.

Derefter vælges eller slettes alt indhold mellem de angivne bogmærker med det samme. Se skærmbilleder.

Vælg tekster mellem to bogmærker:

Slet tekster mellem to bogmærker.

Anbefales Word Produktivitetsværktøjer

shot kutools word kutools plus fane 1180x120

Kutools For Word - Mere end 100 avancerede funktioner til Word, Spar din 50 % tid

Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
Indsæt flere billeder på tværs af mapper i Word dokument med det samme.
Flet og kombiner flere Word filer på tværs af mapper i én med din ønskede rækkefølge.
Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...

Læs mere Hent nu Køb