Word文書で2つのブックマーク間のテキストを選択または削除するにはどうすればよいですか？

Author Siluvia Last modified 2025-08-26

Word文書内の2つのブックマーク間のコンテンツを選択または削除する方法をご存知ですか？この記事では、その処理方法をご紹介します。

VBAを使用して2つのブックマーク間のテキストを選択/削除する

VBAを使用して2つのブックマーク間のテキストを選択/削除する

以下のスクリーンショットに示すように、文書内に2つのブックマークがあると仮定すると、次のVBAコードを使用してこれらの2つのブックマーク間のすべてのコンテンツを選択または削除できます。

Word diaplaying content between two bookmarks

1. 文書内で Alt + F11 キーを押して、Microsoft Visual Basic for Applications ウィンドウを開きます。

2. Microsoft Visual Basic for Applications ウィンドウで、挿入 > モジュール をクリックし、以下のコードをモジュールウィンドウにコピーします。

2つのブックマーク間のテキストを選択または削除するには、以下のコードを使用してください：

VBAコード: Wordで指定された2つのブックマーク間のテキストを選択する：

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コード: Wordで指定された2つのブックマーク間のテキストを削除する：

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. F5キーを押してコードを実行します。

4. 最初の Kutools for Word ダイアログボックスで、開始ブックマーク名をテキストボックスに入力し、OKをクリックします。

Dialog box for entering the start bookmark name