Hi Harvey,
Use the following code in a macro that is run when the document containing
the comments is the active document:
Dim ac As Comment
Dim source As Document, target As Document
Set source = ActiveDocument
Set target = Documents.Add
For Each ac In source.Comments
target.Range.InsertAfter ac.Range & vbCr
Next ac
Please post any further questions or followup to the newsgroups for the
benefit of others who may be interested. Unsolicited questions forwarded
directly to me will only be answered on a paid consulting basis.
Hope this helps
Doug Robbins - Word MVP