Word 2010ドキュメントのすべてのコメントを脚注に自動的に変換するにはどうすればよいですか？

Question

Word 2010でいくつかのテキストにコメントを書き始めましたが、ページに収まらないほど多くのテキストを書きました。脚注に変換して、うまく印刷できるようにしたいと思います。脚注を1つずつ作成せずに、コメントを脚注に変換する方法はありますか？

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

これにより、各コメントの脚注が挿入され、コメントのテキストがコピーされ、後でコメントが削除されます。