As an alternative, you can add the user name and time stamp at the end of each comment:
Code:
Sub InsertCommentsInTextBodyVersion2()
Dim c As Comment
For Each c In ActiveDocument.Content.Comments
c.Range.InsertAfter "[" & c.Author & ", " _
& c.Date & "]"
Next c
End Sub