更改 Word 文档中书签名称的 2 种正确方法

词解法 2025 年 9 月 28 日

在下面的文章中，我们想为您提供两种更改 Word 文档中书签名称的正确方法。

在起草冗长的 Word 文档时，书签和交叉引用可以成为我们最好的朋友，因为它可以节省我们大量重新解释同一点的时间。但是，可能会发生意外问题。例如，如果您更改书签名称并更新交叉引用，您肯定会失败并以如下引用错误结束：

原因是您在更改书签名称时不小心删除了书签本身。现在我们将向您展示 2 种方法来解决这个问题。

方法 1：手动更改书签名称和更新交叉引用

首先，点击“插入”选项卡，然后在“链接”组中点击“书签”。
接下来，点击选择目标书签，然后点击“转到”。
届时您会看到书签文本处于选中状态。单击“删除”。
然后输入新的书签名称并单击“添加”。
按“Alt+F9”显示域代码。
如果您有多个交叉引用，我们建议您使用“查找和替换”功能。只需按“Ctrl+H”即可调用“查找和替换”对话框。
现在在“查找内容”文本框中输入“REF DWORDR”，在“替换为”文本框中输入“REF DWORDR2”。 “DWORDR”是原来的书签名称，“DWORDR2”是新书签名称。
接下来点击“全部替换”。
关闭“查找和替换”框，然后按“Alt+F9”再次显示引用内容。
然后在旁边按“Ctrl+A”和“F9”更新文档中的所有字段。

当您将光标移动到交叉引用上时，您可以在屏幕提示框中看到新的书签名称。

方法 2：通过 VBA 更改书签名称和更新交叉引用

首先，按“Alt+F11”触发VBA编辑器。
首先单击“插入”选项卡，转到“普通”项目以插入新模块。
然后在其下拉菜单中选择“模块”。
双击新建的模块，打开右侧的编辑空间。
接下来将以下宏粘贴到那里：

Sub ChangeTheBookMarkNameAndUpdateCrossReference()
  Dim strBookMarkName As String
  Dim strNewName As String
  Dim objBookMarkRange As Range
  Dim objField As Field
  Dim strFieldCode As String
 
  '  Rename the bookmark name.
  strBookMarkName = InputBox("Enter the bookmark name which you want to change", "BookMark Name", "For example: DWORDR")
  strNewName = InputBox("Enter the New bookmark Name", "New Bookmark Name", "For example: New text")
 
  With ActiveDocument
    If .Bookmarks.Exists(strBookMarkName) Then
      Set objBookMarkRange = .Bookmarks(strBookMarkName).Range
      .Bookmarks(strBookMarkName).Delete
      .Bookmarks.Add Name:=strNewName, Range:=objBookMarkRange
 
      '  Update the cross-reference
      If .Fields.Count >= 1 Then
        For Each objField In .Fields
          strFieldCode = objField.Code.Text
          If strFieldCode = " REF " & strBookMarkName & " \h " Then
            objField.Code.Text = Replace(strFieldCode, strBookMarkName, strNewName, , 1, vbTextCompare)
            objField.Update
            MsgBox ("Code = " & objField.Code & vbCr & "Result = " & objField.Result & vbCr)
          End If 
        Next objField 
      End If
    Else
      MsgBox ("The Bookmark: " & strBookMarkName & " is not founded.")
    End If
  End With

  Set objBookMarkRange = Nothing
End Sub

单击“运行”或按“F5”。
现在在弹出的第一个框中输入原始书签名称，然后单击“确定”。
在第二个上输入新名称，然后单击“确定”。

最后，会有一个框显示结果。

照看 Word 文档

一个的成本败字这份文件不仅限于令人咋舌的企业亏损，更让人情绪失控。因此，非常有必要采取预防措施来绕过诸如备份文档之类的不幸事件。

作者简介：

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