如何在Word 文档中的两个书签之间选择或删除文本？

网友投稿 227 2024-02-04

如何在Word文档中的两个书签之间选择或删除文本？

您知道如何在Word文档中的两个书签之间选择或删除内容吗？本文将向您展示处理它的方法。

使用VBA选择/删除两个书签之间的文本

假设文档中有两个书签，如下面的屏幕快照所示，您可以使用以下VBA代码选择或删除这两个书签之间的所有内容。

1.在文档中，按其他 + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2.在 Microsoft Visual Basic应用程序 窗口中，单击插页 > 模块，然后将以下代码复制到“模块”窗口中。

要选择或删除两个书签之间的文本，请使用以下代码：

VBA代码：删除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

Copy

3。按 F5 键来运行代码。

4.在第一 Kutools for Word 对话框，在文本框中输入起始书签名称，然后单击 OK.

5.在第二 Kutools for Word 对话框，输入结束书签，然后单击 OK。看截图：

备注：如果您输入的书签名称在文档中不存在，则会弹出另一个 Kutools for Word 对话框，提醒您输入正确的书签名称。

然后，将立即选择或删除指定书签之间的所有内容。查看屏幕截图。

在两个书签之间选择文本：