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

Word文書のXNUMXつのブックマーク間のコンテンツを選択または削除する方法を知っていますか？この記事では、それに対処する方法を紹介します。

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

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

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

1.ドキュメントで、を押します他の + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2。の中に アプリケーション向け Microsoft Visual Basic ウィンドウ、クリック インセット > モジュール、次に以下のコードをモジュールウィンドウにコピーします。

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

VBAコード：Wordで指定されたXNUMXつのブックマークからテキストを選択します。

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で指定されたXNUMXつのブックマーク間のテキストを削除します。

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.