|
现有一篇Word文档，其中的注文都使用“【】”进行表示(见图1)，但这些注文放在正文中，看起来不是很合适。一般书籍都是将注释以脚注的方式表示，如何将这一篇文章的所有注文一次性放到页脚处，这该如何实现呢？
 图1Word文档原稿 其实要实现此功能也不难，关键是要运用我们智慧的大脑，我们可以利用伟大的VBA宏代码对“【】”进行批量转换，按下“Alt+F11”组合键，打开MicrosoftVisualBasic编辑器窗口，依次执行“插入→模块”，可以在下面手工粘贴如下代码，这里的宏名称可以任意命名：
Sub脚注转换() DimmyRangeAsRange,NtRangeAsRange,strNTAsString Application.ScreenUpdating=False SetmyRange=ActiveDocument.Content NF: WithmyRange.Find .Text="【*】" .MatchWildcards=True DoWhile.Execute=True SetNtRange=ActiveDocument.Range(myRange.Start,myRange.Start) strNT=myRange.Text myRange.Delete ActiveDocument.Footnotes.AddNtRange,,strNT myRange.SetRangemyRange.End,ActiveDocument.Content.End-1 GoToNF Loop EndWith Application.ScreenUpdating=True EndSub 本站所有代码均限制复制，您可以求助我们的客服QQ:6203431
代码输入完成之后，单击工具栏上的保存按钮，依次执行“文件→关闭并返回到MicrosoftWord”，返回Word界面之后，按下“Alt+F8”组合键，选中列表框中的“脚注转换”宏，单击右侧的“运行”按钮，很快就可以看到图2所示的效果。  图2Word脚注效果 按下“Ctrl+H”组合键，打开“查找和替换→替换”对话框，将“查找内容”设置为“【”，“替换为”设置为空，即什么也不输入，单击“全部替换”按钮可以将文档中所有的“【”删除，接下来再使用同样的方法删除所有的“】”，感兴趣的朋友不妨一试。 |
