如何在Word文档中选择或删除两个书签之间的文本?
你知道如何在Word文档中选择或删除两个书签之间的内容吗?本文将向你展示处理它的方法。
使用VBA选择/删除两个书签之间的文本
假设你的文档中有如下截图所示的两个书签,你可以使用以下VBA代码选择或删除这两个书签之间的所有内容。
1. 在文档中,按 Alt + F11 键打开 Microsoft Visual Basic for Applications 窗口。
2. 在 Microsoft Visual Basic for Applications 窗口中,点击 插入 > 模块,然后将以下代码复制到模块窗口中。
要选择或删除两个书签之间的文本,请使用以下代码:
VBA代码:在Word中选择两个指定书签之间的文本:
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中删除两个指定书签之间的文本:
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 对话框中,输入起始书签名称到文本框并点击 确定。
5. 在第二个 Kutools for Word 对话框中,输入结束书签并点击 确定。见截图:
注意:如果你输入的书签名称在文档中不存在,另一个 Kutools for Word 对话框会弹出提醒你输入正确的名称。
然后,指定书签之间的所有内容都会立即被选择或删除。见截图。
选择两个书签之间的文本:
删除两个书签之间的文本。
Office Tab:为 Word、Excel、PowerPoint 等带来选项卡式界面…![]() |
立即提升您的工作效率。 了解更多关于 Office Tab 的信息 免费下载地址 |
最佳Office办公效率工具
Kutools for Word - 用超过100项强大功能全面提升你的Word体验!
🤖 Kutools AI 功能:AI助手 / 实时助手 / 超级润色(保留格式)/ 超级翻译(保留格式)/ AI遮挡 / AI校正……
📘 文档掌控:分割页面 / 文档合并 / 区域导出为多种格式(PDF/TXT/DOC/HTML等)/ 批量转换为PDF……
✏ 正文编辑:跨多个文件批量查找与替换 / 一键调整所有图片大小 / 翻转表格行列 / 表格转文本……
🧹 高效清理:一扫多余空格 / 分节符 / 文本框 / 超链接 / 想了解更多删除工具,请前往删除分组……
➕ 创意插入:插入千位区分符 /复选框 /选项按钮 / 二维码 / 条形码 / 批量插入图片 / 更多内容请见插入分组……
🔍 精准选取:快速定位指定页面 / 表格 / 形状 / 标题段落 / 利用更多 选择 功能提升导航体验……
⭐ 实用增强:跳转任意区域 / 自动插入重复文本 / 文档窗口间一键切换 /11 项转换工具……
🌍 支持40多种语言:自由选择你喜欢的界面语言——Kutools支持英语、西班牙语、德语、法语、中文及其他40余种语言!

✨ Kutools for Office – 一次安装,五大强力工具集成!
内含 Office Tab Pro · Kutools for Excel · Kutools for Outlook · Kutools for Word · Kutools for PowerPoint
📦 五大工具一站式集成 | 🔗 无缝兼容Microsoft Office | ⚡立即提升效率、节省时间