本示例设置作者姓名。

If ActiveDocument.Comments.Count >= 1 Then
    With ActiveDocument.Comments(1)
        .Author = "King"
    End With
End If

 

本示例返回所选内容的第一个批注的作者姓名。

Dim strAuthor as String
If Selection.Comments.Count >= 1 Then _
    strAuthor = Selection.Comments(1).Author