Microsoft Word でコメントを脚注または文末脚注に変換するには、どうすればよいでしょうか？

Word 文書に複数のコメントが含まれている場合、それらをすべて一度に脚注または文末脚注に変換するにはどうすればよいでしょうか？この記事では、その作業を実現する VBA の方法をご紹介します。

VBA コードを使用してコメントを脚注または文末脚注に変換する

---

VBA コードを使用してコメントを脚注または文末脚注に変換する

以下の VBA コードを使えば、現在の文書に含まれるすべてのコメントを脚注または文末脚注に素早く変換できます。次の手順に従ってください。

1。脚注または文末脚注に変換するコメントを含む文書を開き、Alt+F11キーを押して、Microsoft Visual Basic for Applicationsウィンドウを開きます。

2。Microsoft Visual Basic for Applicationsウィンドウで、挿入 > モジュールをクリックし、以下の VBA コードをモジュールウィンドウにコピーしてください。

VBA コード：コメントを脚注に変換する：

Sub ConvertCommentsToFootnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

VBA コード：コメントを文末脚注に変換する：

Sub ConvertCommentsToEndnotes()
    Dim xComm As Comment
    Dim xCommRange As Range
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    For Each xComm In xDoc.Comments
        Set xCommRange = xComm.Range
        xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
        xComm.Delete
    Next
    Application.ScreenUpdating = True
End Sub

3。F5キーを押して、コードを実行しましょう。

すると、現在の文書内のすべてのコメントが、適用した VBA コードに基づき、即座に脚注または文末脚注に変換されます。

---

関連記事：

• Word 文書で脚注の後に新しいページやテキストを追加するには、どうすればよいですか？
• Word 文書内のすべての脚注を一括で選択するには、どうすればよいでしょうか？