全部显示返回或设置某一批注的作者姓名。String 类型，可读写。
expression.Author
expression 必需。该表达式返回以上一个对象。
修改一个批注的作者将改变文档中所有批注的作者。
返回或设置完成指定修订的用户姓名。String 类型，只读。
expression.Author
expression 必需。该表达式返回以上一个对象。
本示例设置作者姓名，并且为活动文档的第一个批注设置作者姓名缩写。
应用于 Comment 对象的 Author 属性。If ActiveDocument.Comments.Count >= 1 Then
With ActiveDocument.Comments(1)
.Author = "Joe Smith"
.Initial = "JAS"
End With
End If本示例返回所选内容的第一个批注的作者姓名。
Dim strAuthor as String
If Selection.Comments.Count >= 1 Then _
strAuthor = Selection.Comments(1).Author本示例显示所选部分中的第一节的第一处修订的作者姓名。
Dim rngSection as Range
Set rngSection = Selection.Sections(1).Range
MsgBox "Revisions made by " & rngSection.Revisions(1).Author