Counting the number of comments by authors

[h2whoa]

Hi all,

I'm wondering if there is a way to count the number of comments by specific authors. I'm modifying a comment grid generator and have added an option to exclude comments by up to 3 specific authors in the grid.

At the end, a little message box opens up that says "x comments found in the document".

I would like to make x only count the authors who weren't excluded by the user.

My thinking is that the easiest way is to subtract the number of comments by the excluded authors from the overall comment count:

x = ActiveDocument.Comments.Count - (number of comments from author 1 + number of comments from author 2 + number of comments from author 3)

I'm sure that there is an easy way to do this, but I'm too stupid to work it out!

Thank you.

[h2whoa]

Me again...

I'm hoping to be able to create a list of people who have commented on, or made tracked changes to, a document. It's part of something else I'm trying to tweak, but I should be able to work out what I need to do if anyone knows if there is a way have a message box open up and say:

'The following people have made comments or revisions on this document:
AuthorA
AuthorB
AuthorC...'

Any help appreciated.

[macropod]

Try:

Sub DemoA()
Dim StrCmnt As String, ArrAuth, i As Long, j As Long, k As Long
StrCmnt = vbCr: ArrAuth = Array("Author1", "Author2", "Author3")
With ActiveDocument
  For i = LBound(ArrAuth) To UBound(ArrAuth)
    k = 0
    For j = 1 To .Comments.Count
      With .Comments(j)
        If .Author = ArrAuth(i) Then k = k + 1
      End With
    Next
    StrCmnt = StrCmnt & vbCr & ArrAuth(i) & " - " & k
  Next
End With
MsgBox "Comment Count by Designated Author:" & StrCmnt
End Sub

and:

Sub DemoB()
Dim StrCmnt As String, StrRevn As String, i As Long
StrCmnt = vbCr: StrRevn = vbCr
With ActiveDocument
  For i = 1 To .Comments.Count
    With .Comments(i)
      If .Author <> "" Then
        If InStr(StrCmnt, vbCr & .Author & vbCr) = 0 Then
          StrCmnt = StrCmnt & .Author & vbCr
        End If
      End If
    End With
  Next
  For i = 1 To .Revisions.Count
    With .Revisions(i)
      If .Author <> "" Then
        If InStr(StrRevn, vbCr & .Author & vbCr) = 0 Then
          StrRevn = StrRevn & .Author & vbCr
        End If
      End If
    End With
  Next
End With
MsgBox "Comment Authors:" & StrCmnt
MsgBox "Revision Authors:" & StrRevn
End Sub

[h2whoa]

Paul, you are an absolute legend. Thank you so much!