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