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?

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?

Thanks for the assist, I'll try it.
Leroy

"Doug Robbins - Word MVP" wrote:

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?