How to convert comments to footnotes or endnotes in Microsoft Word?

Supposing there are multiple comments in your Word document, how can you convert all these comments to footnotes or endnotes at the same time? This article provides VBA methods to achieve it.

Convert comments to footnotes or endnotes with VBA code

Convert comments to footnotes or endnotes with VBA code

The below VBA codes can help you quickly convert all comments in current document to footnotes or endnotes. Please do as follows.

1. Open the document contains comments you will convert to footnotes or endnotes, press the Alt + F11 keys to open the Microsoft Visual Basic for Applications window.

2. In the Microsoft Visual Basic for Applications window, click Insert > Module. Then copy below VBA code into the Module window.

VBA code: Convert comments to footnotes:

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 code: Convert comments to endnotes:

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. Press the F5 key to run the code.

Then all comments in current document are converted to footnotes or endnotes immediately based on the VBA code you applied.