|
|
#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
__________________
Andrew Lockton Chrysalis Design, Melbourne Australia 
|
|
|
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 |
Windows 10 
Office 2016
Threaded Mode