2种快速批量删除Word文档中多个书签的方法

在本文中，我们想为您提供两种快速批量删除Word文档中多个书签的方法。

通常，您可以毫无障碍地在Word文档中添加或删除单个书签。 但是，当涉及到多个书签时，您可能会感到束手无策。

幸运的是，Word 中有一个强大的工具，那就是 VBA 编辑器。 因此，我们将使用宏来帮助您批量删除文档中的多个书签。

方法一：批量删除文档中的所有书签

1. 首先，按下“Alt+F11”键，在 Word 中打开 VBA 编辑器。
2. 接下来在左侧的“项目”面板上，单击“正常”。
3. 然后单击“插入”选项卡并在其菜单上选择“模块”。
4. 双击打开模块。
5. 现在将以下代码粘贴到那里：

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. 然后点击“运行”按钮。
7. 接下来你会得到一个询问框。 并且您可以看到当前文档中的书签总数。 单击“是”将它们全部删除，或单击“否”退出宏。
8. 如果您选择“是”，您将收到如下消息：

方法二：批量删除选中的所有书签

诚然，有时您不得不删除多个书签但保留一些书签。 同样，我们将在选择上运行一个宏来完成工作。

1. 首先，重复上述步骤来安装和运行宏。
2. 记得用这个替换宏：

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. 在运行宏之前，您应该在一系列内容中进行选择。
4. 并且在执行代码的过程中，您会收到与方法一相同的2个消息框。

结果是您只会删除所选内容中的书签。

为文档损坏做好准备

数据丢失随时可能发生在任何人身上。 它的不可预测性使我们可以抓住机会不碰运气。 说到这个话题 修复文档，你绝对不能错过提前挑选高效修复工具。

作者简介：

Vera Chen 是一位数据恢复专家 DataNumen, Inc.，它是数据恢复技术领域的世界领先者，包括 xls修复 和 pdf 修复软件产品。 欲了解更多信息，请访问 datanumen.com