How to print the notes in the docutment?

[Terry Ho]

I make some notes in document. I want to print the document with notes. I
don't know how to setup this function. Would you tell me? Thanks!

 

[Doug Robbins - Word MVP]

Hi Terry,

I assume that by notes, you mean comments. If that is the case, if you run
a macro containing the following code, it will insert each comment into the
text inside [ ] so that you can print it out with the document.

Dim acomment As Comment
For Each acomment In ActiveDocument.Comments
acomment.Reference.InsertBefore " [" & acomment.Range.Text & "] "
Next acomment

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP

 

[Doug Robbins - Word MVP]

Hi Terry,

The following macro will save the document, insert the comments in an italic
font, then print the document, close it without saving the changes, then
re-open the version that was saved:

Dim filename As String
Dim acomment As Comment
ActiveDocument.Save
filename = ActiveDocument.FullName
For Each acomment In ActiveDocument.Comments
acomment.Reference.Select
Selection.Font.Italic = True
Selection.Text = "[" & acomment.Author & "] [" & acomment.Range.Text &
"] "
Next acomment
ActiveDocument.PrintOut
ActiveDocument.Close wdDoNotSaveChanges
Documents.Open filename

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP

Thank you very much! I add the macro you write for me. It shows the
comments. But I just want to show the comment when I print the document.
Would you tell me how to do? By the way, I want to change font of comments
so that it can different from body. How can I do?

Appreciate for your help!

Hi Terry,

I assume that by notes, you mean comments. If that is the case, if you run
a macro containing the following code, it will insert each comment into the
text inside [ ] so that you can print it out with the document.

Dim acomment As Comment
For Each acomment In ActiveDocument.Comments
acomment.Reference.InsertBefore " [" & acomment.Range.Text & "] "
Next acomment

Please respond to the newsgroups for the benefit of others who may be
interested.

Hope this helps
Doug Robbins - Word MVP

I make some notes in document. I want to print the document with

notes.

I

 

[Suzanne S. Barnhill]

Depending on version, there should be an option to do this in the Print
dialog (in the "Print what" box). Word 2002 has "Document with markup" and
"List of markup," but I believe previous versions offered the option of
printing just the comments.

--
Suzanne S. Barnhill
Microsoft MVP (Word)
Words into Type
Fairhope, Alabama USA
Word MVP FAQ site: http://www.mvps.org/word