Comments to Text

  • Thread starter Thread starter Ross from Orlando
  • Start date Start date
R

Ross from Orlando

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

Ross
 
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, see
http://www.gmayor.com/installing_macro.htm.
 
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



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,
Click to expand...
Ross- Hide quotedtext-
Click to expand...

- Show quotedtext-
Click to expand...

This works great, thanks so much.

Ross
 
I'm glad I could help!

--
Stefan Blom
Microsoft Word MVP



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

message

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,
Click to expand...
Ross- Hide quotedtext-
Click to expand...

- Show quotedtext-
Click to expand...

This works great, thanks so much.

Ross
 
Back
Top