W2000 Comment printing - altering macro

  • Thread starter Thread starter danison
  • Start date Start date
D

danison

Hi

To an earlier post I received the following reply from Stefan (thanks!
advising you cannot print 'balloon' comments at insertion point in th
document in which you have put a comment, but can use a macro to dro
the comment in place.

What I would like to be able to do is to increase the size of the fon
of the comment & make it italic so that it stands out in the middle o
the document. Is there a way to do this?

Thanks

Bill

Stefan's initial response:

In Word 2000, you can't print comments in balloons, but you can use
the following very simple macro, which inserts the text of your
comments after their referenced text. When you've run the macro,
simply print the document and then close without saving, unless you
want the comment text to be saved with the document.

Sub PrintCommentsWithText
Dim c As Comment
For Each c In ActiveDocument.Comments
c.Reference.InsertAfter "[" & c.Range.Text & "]"
Next c
End Sub

If you need help with installing the macro, please see:

http://word.mvps.org/FAQs/MacrosVBA/CreateAMacro.htm
 
Try the following modified macro:

Sub PrintCommentsWithText2()
Dim r As Range
Dim c As Comment
For Each c In ActiveDocument.Comments
Set r = c.Reference
With r
.Collapse wdCollapseEnd
.InsertAfter "[" & c.Range.Text & "]"
.Italic = True
.Font.Size = 14
End With
Next c
End Sub

The value for font size (I used 14 pt above) can of course be changed
to suit your needs.
 
Back
Top