Skip to main content

Kutools for Office — One Suite. Five Tools. Get More Done.

How to select or delete text between two bookmarks in Word document?

Author Siluvia Last modified

Do you know how to select or delete the content between two bookmarks in a Word document? This article will show you methods to deal with it.

Select/delete text between two bookmarks with VBA

Select/delete text between two bookmarks with VBA

Supposing there are two bookmarks in your document as below screenshot shown, you can select or delete all contents between these two bookmarks with the following VBA code.

Word diaplaying content between two bookmarks

1. In the document, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module, then copy below code into the Module window.

For selecting or deleting texts between two bookmarks, please use the codes below:

VBA code: Select text between two specified bookmarks 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: Delete text between two specified bookmarks 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. Press the F5 key to run the code.

4. In the first Kutools for Word dialog box, enter the start bookmark name into the text box and click OK.

Dialog box for entering the start bookmark name

5. In the second Kutools for Word dialog box, enter the end bookmark and click OK. See screenshot:

Dialog box for entering the end bookmark name

Note: If the bookmark name you entered does not exist in document, another Kutools for Word dialog box will pop up to remind you of entering the correct one.

Then all contents between the specified bookmarks are selected or deleted immediately. See screenshots.

Select texts between two bookmarks:

Content between the specified bookmarks are selected

Delete texts between two bookmarks.

Content between the specified bookmarks are deleted

Office Tab: Brings tabbed interfaces to Word, Excel, PowerPoint...
Navigate through documents using Office Tab
Enhance your workflow now.      Learn More about Office Tab       Free Download

Best Office Productivity Tools

Kutools for Word - Elevate Your Word Experience with Over 100 Remarkable Features!

🤖 Kutools AI Features: AI Assistant / Real-Time Assistant / Super Polish (Preserve Format) / Super Translate (Preserve Format) / AI Redaction / AI Proofread...

📘 Document Mastery: Split Pages / Merge Documents / Export Selection in Various Formats (PDF/TXT/DOC/HTML...) / Batch Convert to PDF...

✏ Contents Editing: Batch Find and Replace across Multiple Files / Resize All Pictures / Transpose Table Rows and Columns / Convert Table to Text...

🧹 Effortless Clean: Sweap away Extra Spaces / Section Breaks / Text Boxes / Hyperlinks / For more removing tools, head to the Remove group...

➕ Creative Inserts: Insert Thousand Separators / Check Boxes / Radio Buttons / QR Code / Barcode / Multiple Pictures / Discover more in the Insert group...

🔍 Precision Selections: Pinpoint Specific Pages / Tables / Shapes / Heading Paragraphs / Enhance navigation with more Select features...

⭐ Star Enhancements: Navigate to Any Location / Auto-Insert Repetitive Text / Toggle Between Document Windows / 11 Conversion Tools...

🌍 Supports 40+ Languages: Use Kutools in your preferred language – supports English, Spanish, German, French, Chinese, and 40+ others!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 Want to try these features? Download Kutools for Word now! 🚀
 

✨ Kutools for Office – One Installation, Five Powerful Tools!

Includes Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint

📦 Get all 5 tools in one suite | 🔗 Seamless integration with Microsoft Office | ⚡ Save time and boost productivity instantly

Best Office Productivity Tools

Kutools for Word - 100+ Tools for Word

Free Download Buy Now Learn More about Kutools