View Single Post
  #4   Report Post  
Posted to microsoft.public.word.newusers
Stefan Blom[_3_] Stefan Blom[_3_] is offline
external usenet poster
 
Posts: 6,897
Default Comments to Text

I'm glad I could help!

--
Stefan Blom
Microsoft Word MVP



"Ross from Orlando" wrote in message
...
On Oct 13, 2:34 am, "Stefan Blom"
wrote:
The following macro should do the trick:

Sub InlineComments()
Dim c As Comment
Dim r As Range
For Each c In ActiveDocument.Comments
Set r = c.Reference.Duplicate
r.InsertAfter "[" & c.Range.Text& "]"
r.Font.Color = wdColorRed
c.Delete
Next c
End Sub

If you need assistance with the macro,
seehttp://www.gmayor.com/installing_macro.htm.

--
Stefan Blom
Microsoft Word MVP

"Ross from Orlando" wrote in
...



Use Word 2007. Someone sent me a document with severalcomments(using
Word's comment feature). What I'd like to do, if possible, is to
convert all thecommentstotext, to appear in the document in the
places with the corresponding comment markers. And if thetextcould
be in red font, so much the better. Any ideas? Thanks,


Ross- Hide quotedtext-


- Show quotedtext-


This works great, thanks so much.

Ross