create a new document consisting just of comments

[ruthd]

does anyone know how I can either print to pdf, or create a new
document, of just the comments and their reviewers in Word?

I have tried being in 'final showing markup'; show = comments (i.e.
insertions & deletions and formatting are turned off), and printing
'list of markup', but still I get all the other stuff. I just want the
comments.

I also tried generating a TOC using the comments text as the style
from which to generate it, but Word couldn't find any entries, even
though when you click on the comments text it tells you that is the
name of the style.

can anyone help?

ruthd

 

[David Sisson]

Hi Ruth, Try this.


Sub CollectComments()

'Adopted from Mark Tangard code http://tinyurl.com/23qtth

Dim cmtext As String, c As Comment, i As Long
Dim aDoc As Document
Dim bDoc As Document
Dim rng As Range

Set aDoc = ActiveDocument
Set bDoc = Documents.Add

For i = aDoc.Comments.Count To 1 Step -1
With aDoc.Comments(i)
cmtext = .Range.Text
.Reference.Select
With Selection
Set rng = bDoc.Range
rng.Collapse wdCollapseStart
'---Customize as required:
rng.Text = i & ". " & cmtext & vbCr
End With
End With
Next

End Sub