The following macro should do that:
Sub ExtractComments()
Dim DocA As Document
Dim DocB As Document
Dim comm As Variant
Dim Count As Long
Dim sComment As String
Set DocA = ActiveDocument
Set DocB = Word.Documents.Add
Count = 1
For Each comm In DocA.Comments
sComment = DocA.Comments(Count).Range.Text
sComment = "(" & DocA.Comments(Count).Initial & Count & ") " & sComment
DocB.Activate
Selection.TypeText sComment & vbCr
Count = Count + 1
Next comm
End Sub
http://www.gmayor.com/installing_macro.htm
--
Graham Mayor - Word MVP
My web site
www.gmayor.com
Word MVP web site
http://word.mvps.org
chen wrote:
I have a word document and I need to copy all the comments inserted
to a new document.