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

Question

我开始在 word 2010 中对一些文本进行评论，但我写了很多，以至于它们不适合页面。我想将它们转换为脚注，以便它们能很好地印刷。有没有办法将注释转换为脚注，而无需一次添加一个脚注？

Answer 1

AFAIK 没有内置功能，但对于 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

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