如何自动将 Word 2010 文档中的所有注释转换为脚注？

Question

我开始在 Word 2010 中对一些文本写评论，但评论太多，页面放不下。我想将它们转换为脚注，以便打印时效果更好。有没有办法将评论转换为脚注，而不必逐个添加脚注？

Answer 1

据我所知，没有内置功能，但对于 VBA 宏来说，这是一项简单的任务（我发现这里)：

    Sub comment2footnote()
      Application.ScreenUpdating = False
      Dim oDoc As Document, oComment As Comment
      Set oDoc = ActiveDocument
      For Each oComment In ActiveDocument.Comments
          oDoc.Footnotes.Add Range:=oComment.Scope, Text:=oComment.Range.Text
          oComment.Delete
      Next
      Application.ScreenUpdating = True
    End Sub

这将为每个评论插入脚注，复制评论的文本，然后删除该评论。