Convert Comments to Footnotes?

[Emanuel Vahid Towfigh]

Hi there,
is there any way to convert comments to foot-/endnotes, quick and dirty?
Any help is greatly appreciated!
Cheers,
e.

 

[Daiya Mitchell]

I'm guessing VBA could find each comment, move the text to an endnote and
delete the comment, but haven't a clue how. Ask in one of the groups with
word.vba in the name, if you haven't already.

 

[Klaus Linke]

Hi Emanuel,

Below's a macro I have used.
You loose the comment range, author, and time stamp. If that's a problem, you'd need to decide how you want to keep that info, and add a few lines to the macro.

Regards,
Klaus


Sub Comments2Endnotes()

Dim myComment As Comment
Dim myRange As Range

For Each myComment In ActiveDocument.Content.Comments
myComment.Range.Copy
Set myRange = myComment.Reference
myComment.Delete
With ActiveDocument.Endnotes
.Add Range:=myRange, Text:=""
End With
myRange.MoveEnd Unit:=wdCharacter, Count:=1
myRange.Endnotes(1).Range.Select
Selection.Paste
Next myComment
End Sub