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

caspy · #1 10-22-2022, 06:47 AM

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 · #2 10-22-2022, 11:56 PM

Something like this will tell you how many are resolved.

Code:

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 · #3 10-23-2022, 12:27 AM

You LEGEND!

I knew there was a simple way to do this!

Works a treat, I owe you one!!

-c

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Counting the number of changes a macro makes	John 4	Word VBA	6	09-02-2020 10:35 PM
Counting rows with a macro?	Jennifer Murphy	Word Tables	1	08-23-2016 03:00 PM
Counting unique visitors by ward, counting monthly visits by status, editing existing workbook	JaxV	Excel	9	11-14-2014 12:25 AM
Looking for VBA or Macro Counting a specific value occuring in single, random, changing cell?	blackjack	Excel Programming	1	09-11-2014 11:27 PM
Word counting macro for newly added portion?	New Daddy	Word VBA	24	09-30-2013 07:30 PM