AuthorIndex 属性

返回 Long 的值，该值代表给定作者的批注的索引号。给定作者第一个批注的索引号为 1，第二个批注的索引号为 2，以此类推。只读。

expression  必选。该表达式返回“应用于”列表中的对象之一。

示例

以下示例提供了给定幻灯片中作者及其批注索引的信息。

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