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

将Word正文中的注释批量转换为脚注内容简介：同事老徐拿来一份Word文档，这是他请人录入的稿件，其中的注文都使用【】进行表示(见图1)，但这些注文放在正文中，看起来不是很合适。现在老徐希望将这些注文放到页脚处，该如何实现呢？图1 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”组合键，打开“查找和替换→替换”对话框，将“查找内容”设置为“【”，“替换为”设置为空，即什么也不输入，单击“全部替换”按钮可以将文档中所有的“【”删除，接下来再使用同样的方法删除所有的“】”，感兴趣的朋友不妨一试。