如何在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