Voici deux macros :

 

pour copier tout commentaire en note de bas de page :

Sub ConvertCommentsToFootnotes()
Dim c As Comment
Dim r As Range
For Each c In ActiveDocument.Comments
Set r = c.Reference
r.Collapse wdCollapseStart
ActiveDocument.Footnotes.Add Range:=r, _
Text:=c.Range.Text
Next c
End Sub

 

pour supprimer tous les commentaires.

Sub DeleteComments()
Dim i As Long
For i = ActiveDocument.Comments.Count To 1 Step - 1
ActiveDocument.Comments(i).Delete
Next i
End Sub