Hoppa till huvudinnehåll

Utforska det nya, gratisversionen av Kutools for Outlook idag!

Hur markerar eller tar jag bort text mellan två bokmärken i Word-dokument?

Författare: Siluvia Senast ändrad: 2024-08-29

Vet du hur man väljer eller tar bort innehållet mellan två bokmärken i ett Word-dokument? Den här artikeln visar metoder för att hantera det.

Markera / ta bort text mellan två bokmärken med VBA

Markera / ta bort text mellan två bokmärken med VBA

Om vi ​​antar att det finns två bokmärken i ditt dokument som visas nedan, kan du välja eller ta bort allt innehåll mellan dessa två bokmärken med följande VBA-kod.

Ord som visar innehåll mellan två bokmärken

1. I dokumentet trycker du på andra + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. I Microsoft Visual Basic för applikationer fönstret klickar Insert > Modulerna, kopiera sedan nedanstående kod till modulfönstret.

För att välja eller ta bort texter mellan två bokmärken, använd koderna nedan:

VBA-kod: Välj text mellan två angivna bokmärken 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-kod: Ta bort text mellan två angivna bokmärken 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. tryck på F5 för att köra koden.

4. I den första Kutools för Word dialogrutan, ange namnet på startbokmärket i textrutan och klicka OK.

Dialogruta för att ange namnet på startbokmärket

5. På sekunden Kutools för Word dialogrutan, ange slutet bokmärke och klicka OK. Se skärmdump:

Dialogruta för att ange slutbokmärkets namn

Anmärkningar: Om det bokmärkesnamn du angav inte finns i dokumentet dyker en annan Kutools for Word-dialogruta upp för att påminna dig om att ange rätt.

Sedan markeras eller raderas allt innehåll mellan de angivna bokmärkena omedelbart. Se skärmdumpar.

Välj texter mellan två bokmärken:

Innehåll mellan de angivna bokmärkena väljs

Ta bort texter mellan två bokmärken.

Innehåll mellan de angivna bokmärkena raderas

Office-fliken: Tar flikgränssnitt till Word, Excel, PowerPoint...
Navigera genom dokument med Office-fliken
Förbättra ditt arbetsflöde nu.      Läs mer om Office-fliken       Gratis nedladdning

Bästa kontorsproduktivitetsverktyg

Kutools för Word - Höj din ordupplevelse med Over 100 Anmärkningsvärda funktioner!

🤖 Kutools AI-funktioner: AI-assistent / Realtidsassistent / Superpolsk (bevara format) / Super Translate (Bevara format) / AI-redaktion / AI korrekturläsning...

📘 Dokumentbehärskning: Dela sidor / Sammanfoga dokument / Exportera urval i olika format (PDF/TXT/DOC/HTML...) / Batchkonvertera till PDF...

✏ Innehållsredigering: Batchsök och ersätt över flera filer / Ändra storlek på alla bilder / Transponera tabellrader och kolumner / Konvertera tabell till text...

🧹 Enkel rengöring: Svep bort Extra utrymmen / Avsnitt bryter / Textrutor / Hyperlänkar / För fler borttagningsverktyg, gå till ta bort grupp...

➕ Kreativa inlägg: Föra in Tusen avskiljare / Kryssrutor / radio Knappar / QR-kod / Streckkod / Flera bilder / Upptäck mer i Insert grupp...

🔍 Precisionsval: Precisera Specifika sidor / Bord / Former / Rubrik stycken / Förbättra navigering med mer Välja pass...

⭐ Stjärnförbättringar: Navigera till valfri plats / Auto-infoga upprepad text / Växla mellan dokumentfönster / 11 Konvertering verktyg...

Kutools och Kutools Plus flikar på Word Ribbon
👉 Vill du prova dessa funktioner? Ladda ner Kutools för Word nu! 🚀
 

Bästa kontorsproduktivitetsverktyg

Kutools för Word - 100+ verktyg för Word

Gratis nedladdning Köp nu Lär dig mer om Kutools