Print document with comments

[E. M.]

I am trying to write a macro to do the following:

1. If the document has comments inserted, then change the document font to
Times New Roman 13,
print the document and the comments but do not save the font change.

2. If there are no comments, then make no changes, just print the document.

Any help would be appreciated.

 

[Helmut Weber]

Hi,

like this:

With ActiveDocument.Range
If .Comments.Count > 0 Then
ActiveWindow.View.ShowComments = True
.Font.Name = "Times New Roman"
.Font.Size = 13
ActiveDocument.PrintOut
End If
End With
ActiveDocument.Undo 3

But I wonder, whether this is a good idea after all.
I'd rather save the doc, save a copy under another name,
do the formatting, close the copy and load the original again.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

 

[E.M.]

Thanks a lot for your reply, I had managed to come up with this:


If Selection.Comments.Count >= 1 Then

Selection.WholeStory
Selection.Font.Size = 13
End If

Then print the document, etc...

but I like your solution better

E.M.