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

Word 文書内の2 つのブックマーク間に含まれるコンテンツを、選択したり削除したりする方法をご存じですか？この記事では、その方法をわかりやすくご紹介します。

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

---

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

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

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をクリックします。

5。2 つ目のKutools for Wordダイアログボックスで、終了ブックマークの名前を入力し、OKをクリックしてください（スクリーンショット参照）。

注：入力したブックマーク名が文書内に存在しない場合、正しいブックマーク名を入力するよう促す別の Kutools for Word ダイアログボックスが表示されます。

すると、指定されたブックマーク間のすべてのコンテンツが即座に選択または削除されます。スクリーンショットをご参照ください。

2 つのブックマーク間のテキストを選択する

2 つのブックマーク間のテキストを削除する