同事老徐拿来一份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”组合键，打开“查找和替换→替换”对话框，将“查找内容”设置为“【”，“替换为”设置为空，即什么也不输入，单击“全部替换”按钮可以将文档中所有的“【”删除，接下来再使用同样的方法删除所有的“】”，感兴趣的朋友不妨一试。
相关阅读