将Word正文中的注释批量转换为脚注

同事老徐拿来一份Word文档，这是他请人录入的稿件，其中的注文都使用“【】”进行表示(见图1)，但这些注文放在正文中，看起来不是很合适。现在老徐希望将这些注文放到页脚处，该如何实现呢？

图1 Word文档原稿

我们可以利用VBA宏代码对“【】”进行批量转换，按下“Alt+F11”组合键，打开Microsoft Visual Basic编辑器窗口，依次执行“插入→模块”，在右侧的模块窗格中手工粘贴如下代码，这里的宏名称可以任意命名：

Sub 脚注转换()

Dim myRange As Range, NtRange As Range, strNT As String

Application.ScreenUpdating = False

Set myRange = ActiveDocument.Content

NF: With myRange.Find

.Text = "【*】"

.MatchWildcards = True

Do While .Execute = True

Set NtRange = ActiveDocument.Range(myRange.Start, myRange.Start)

strNT = myRange.Text

myRange.Delete

ActiveDocument.Footnotes.Add NtRange, , strNT

myRange.SetRange myRange.End, ActiveDocument.Content.End - 1

GoTo NF

Loop

End With

Application.ScreenUpdating = True

End Sub

代码输入完成之后，单击工具栏上的保存按钮，依次执行“文件→关闭并返回到Microsoft Word”，返回Word界面之后，按下“Alt+F8”组合键，选中列表框中的“脚注转换”宏，单击右侧的“运行”按钮，很快就可以看到图2所示的效果。

图2 Word脚注效果

按下“Ctrl+H”组合键，打开“查找和替换→替换”对话框，将“查找内容”设置为“【”，“替换为”设置为空，即什么也不输入，单击“全部替换”按钮可以将文档中所有的“【”删除，接下来再使用同样的方法删除所有的“】”，感兴趣的朋友不妨一试。