如何批量更改Word文档中的多个书签名称

在今天的文章中，我们将向您提供在Word文档中批量更改多个书签名称的方法。

在Word文档中更改书签名称需要一点技巧。在我们之前的一篇文章中，我们已经向您解释了方法。有关详细资料，请参阅以下连结:2在Word文档中更改书签名称的正确方法

这一次，我们想为您提供在文档中批量更改多个书签名称的方法。

通过VBA批量更改多个书签名称

1. 首先，在目标文档的末尾插入一个包含多行的2列表。在表格的第一列中输入原来的书签名称。在第二个里输入新的名字。还要确保将光标放在表中。下面是例子:
2. 然后按“Alt+ F11”在Word中调用VBA编辑器。
3. 接下来在编辑器中，单击左侧栏中的“Normal”。
4. 在上面的菜单栏上，点击“插入”选项卡。
5. 在“插入”下拉菜单中，选择“模块”。Click "Insert"->Click "Module"" src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20266%20185'%3E%3C/svg%3E" alt="点击“正常”->点击“插入”->点击“模块”" width="266" height="185" data-lazy-src="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Normal-then-Click-Insert-then-Click-Module-25.jpg">
6. 双击新模块打开，在编码区粘贴如下代码:

Sub BatchChangeTheBookMarkNameAndUpdateCrossReference() Dim nCurrentTableIndex As Integer Dim objTable As Table Dim nRowNumber As Integer Dim objOriBookMarkList As Cell Dim objOriBookMarkListR As Range Dim objNewBookMarkListR As Range Dim strBookMarkName As String Dim strNewName As String Dim objBookMarkRange As Range Dim objField As Field Dim strFieldCode As String nCurrentTableIndex = ActiveDocument。范围(0,Selection.Tables (1) .Range.End) .Tables。Count Set objTable = ActiveDocument.Tables(nCurrentTableIndex) nRowNumber = 1 For Each objOriBookMarkList In objTable. columns(1)。设置objOriBookMarkListR = objOriBookMarkList。objOriBookMarkListR范围。MoveEnd单位:=wdCharacter，计数:=-1设置objNewBookMarkListR = objTable。Cell(nRowNumber, 2). rangeMoveEnd单位:=wdCharacter，计数:=-1如果objOriBookMarkListR。文本<> ""那么strBookMarkName = objOriBookMarkListR。文本strNewName = objNewBookMarkListR。文本结束如果与ActiveDocument如果。bookmarks . exists (strBookMarkName)然后设置objBookMarkRange = . bookmarks (strBookMarkName)。范围.Bookmarks (strBookMarkName)。删除.Bookmarks。Add Name:=strNewName, Range:=objBookMarkRange '更新交叉引用If . fields。计数>= 1然后为每个objField在。fields strFieldCode = objField. code . text如果strFieldCode = " REF " & strBookMarkName & " \h "然后objField. code . text =替换(strFieldCode, strBookMarkName, strNewName，， 1, vbTextCompare) objField。更新结束如果下一个objField结束如果其他MsgBox(“书签:”& strBookMarkName &“是不成立的。”)结束如果结束与设置objBookMarkRange =无nRowNumber = nRowNumber + 1下一个MsgBox(“所有的书签在表列表已被重命名。”)结束Sub

7. 最后但并非最不重要的，点击“运行”或按“F5”执行代码。

当这个过程完成后，会出现一个消息框，如下所示:

你也可以先按“插入”页签，再按“书签”，触发“书签”对话框。现在您可以看到书签名称已经更改。Click "Bookmark"" src="data:image/svg+xml,%3Csvg%20xmlns='http://www.w3.org/2000/svg'%20viewBox='0%200%20766%20583'%3E%3C/svg%3E" alt="点击“插入”->点击“书签”" width="766" height="583" data-lazy-srcset="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Insert-then-Click-Bookmark.jpg 766w, //www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Insert-then-Click-Bookmark-300x228.jpg 300w, //www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Insert-then-Click-Bookmark-500x381.jpg 500w" data-lazy-sizes="(max-width: 766px) 100vw, 766px" data-lazy-src="//www.circareview.com/blogs/wp-content/uploads/2017/07/Click-Insert-then-Click-Bookmark.jpg">

处理文字错误

由于Word不能幸免于错误，所以有必要在使用时采取正确的行动词腐败发生了。大多数情况下，您可以通过选择一个熟练的修复工具来检索数据。

作者简介:

Vera Chen是DataN万博ManBetX手机下载umen, Inc.的数据恢复专家，该公司是数据恢复技术的世界领导者，包括修复Excel以及PDF修复软件产品。万博体育app官方网下载欲了解更多信息，请访问www.circareview.com