Counting the amount of comments 'done' and 'not done' with a macro

[caspy]

Long time listener, first time caller (poster).

Love some of these macros.

So the I noticed there is a comment.done property, but i haven't seen it used in a macro. My query is kinda simple, I know i can extract all comments into a table and stuff like that, but i simply want to count the amount of comments that are in a document on a given day, and also count the amount of comments marked as 'done'.



Is this possible to do with a macro? I imagine it'd only be a few lines but haven't dabbled in VBA for a very long time.

That's it really.

Thank you for your time!

background; instructional designer, implementing changes from SMEs.

[Guessed]

Something like this will tell you how many are resolved.

Sub CountComments()
  Dim iResolved As Integer, aCmt As Comment
  For Each aCmt In ActiveDocument.Comments
    If aCmt.Done Then iResolved = iResolved + 1
  Next aCmt
  MsgBox "Document has " & ActiveDocument.Comments.Count & " comments. " & vbCr & "Resolved: " & iResolved
End Sub

[caspy]

You LEGEND!

I knew there was a simple way to do this!

Works a treat, I owe you one!!

-c