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.

--
Stefan Blom
Microsoft Word MVP



"Ross from Orlando" <(E-Mail Removed)> wrote in message
news:ad6e2bfb-433d-4258-9b3d-(E-Mail Removed)...
> 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

On Oct 13, 2:34*am, "Stefan Blom"
<StefanB...@discussions.microsoft.com> 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" <rpay...@cfl.rr.com> wrote in messagenews:ad6e2bfb-433d-4258-9b3d-(E-Mail Removed)...
>
>
>
> > 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

I'm glad I could help!

--
Stefan Blom
Microsoft Word MVP



"Ross from Orlando" <(E-Mail Removed)> wrote in message
news:a0c445aa-54a7-40d5-9f28-(E-Mail Removed)...
On Oct 13, 2:34 am, "Stefan Blom"
<StefanB...@discussions.microsoft.com> 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" <rpay...@cfl.rr.com> wrote in
> messagenews:ad6e2bfb-433d-4258-9b3d-(E-Mail Removed)...
>
>
>
> > 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