Use the following macro:

Dim acomment As Comment, commentrange As Range

For Each acomment In ActiveDocument.Comments

Set commentrange = acomment.Reference

commentrange.InsertBefore "[" & acomment.Author & " - " &
acomment.Range.Text & "]"

commentrange.Font.Italic = True

acomment.Reference.Delete

Next acomment

Delete the "[" & acomment.Author & " - " & and & "]" from the line

"[" & acomment.Author & " - " & acomment.Range.Text & "]"

if all you want to insert is the comment without any identifier.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Leroy-P" wrote in message
...
OFFICE 2003 Professional
I have several pages of text wwith comments and I want to accept and
incorporate the comments.
How do you incorporate the comments into the document without having to
retype them?