Je,
You can use a macro - this collects cmts from activedocument and places in a
new document window:
Sub Cmts_PrintOnly()
Dim oThisDoc As Document
Dim oThatDoc As Document
Dim c As Comment
Dim sTemp As String
Dim iPage As Integer
Set oThisDoc = ActiveDocument
Set oThatDoc = Documents.Add
Application.ScreenUpdating = False
For Each c In oThisDoc.Comments
'Find page number of comment
oThisDoc.Select
c.Reference.Select
iPage = Selection.Information(wdActiveEndAdjustedPageNumber)
'Put info in new document
oThatDoc.Select
Selection.EndKey Unit:=wdStory
sTemp = "Page: " & iPage
Selection.TypeText Text:=sTemp
Selection.TypeParagraph
sTemp = "[" & c.Initial & c.Index & "] " & c.Range
Selection.TypeText Text:=sTemp
Selection.TypeParagraph
Next
Application.ScreenUpdating = True
End Sub
How to Install a Macro [courtesy Steven Craig Miller]:
The shortcut key Alt-F11 will take you to the VBA editor.
The shortcut key Ctrl-R will open the Project Explorer (if it is not already
open).
Click on the template where you would like to store your macro, for example
click on "Normal."
Insert a new Module with: Insert > Module.
The code window has General & Declarations at the top.
Cut and past your macro into the code window.
You can store more than one macro in a module.
You can re-name your module by clicking on F4, this should bring up the
Properties Window. In the field following "(name)" you can change the
module's name.
To run your macro, go back to your document and click on Alt-F8.
Alt-F8 will bring up the macro menu from which you can pick your macro and
run it.
Hope this helps
www.docsliveonline.com