将注释批量转为脚注

【电脑报在线】一些商业文件中使用了“”来进行文字注释，这样阅读不连贯，需要将注释放到页脚处变成脚注。如果只有一两处可以手动修改，如果多了怎么办？

一些商业文件中使用了“”来进行文字注释，这样阅读不连贯，需要将注释放到页脚处变成脚注。如果只有一两处可以手动修改，如果多了怎么办？可以设计一个专门的转换宏代码。按组合键“Alt+F11”，打开Microsoft Visual Basic编辑器窗口，点击“插入→模块”，输入代码即可，关键代码如下：

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.AddNtRange, , strNT

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

GoTo NF

董师傅点评：这个技巧在论文写作中也可以用到，特别是参考网上下载的论文资料时。

本文出自2015-10-19出版的《电脑报》2015年第41期 C.笔记本电脑 (网站编辑：ChengJY)