AuthorIndex Property

Returns a Long representing the index number of a comment for a given author. The first comment for a given author has an index number of 1, their second comment has an index number of 2, and so on. Read-only.

expression   Required. An expression that returns one of the objects in the Applies To list.

Example

The following example provide information about the authors and their comment indexes for a given slide.

Sub GetCommentAuthorInfo()

    Dim cmtComment As Comment
    Dim strAuthorInfo As String

    With ActivePresentation.Slides(1)
        If .Comments.Count > 0 Then
            For Each cmtComment In .Comments
                strAuthorInfo = strAuthorInfo & "Comment Number:  " & _
                    cmtComment.AuthorIndex & vbLf & _
                    "Made by:  " & cmtComment.Author & vbLf & _
                    "Says:  " & cmtComment.Text & vbLf & vbLf
            Next cmtComment
        End If
    End With

    MsgBox "The comments for this slide are as follows: " & _
        vbLf & vbLf & strAuthorInfo

End Sub