[Janae]

[Doug Robbins - Word MVP]

Run the following macro on the document AFTER you have saved a copy of it:



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


--
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

"Janae" wrote in message
...