Question

全部显示

应用于 Comment 对象的 Author 属性。

返回或设置某一批注的作者姓名。String 类型，可读写。

expression.Author

expression 必需。该表达式返回以上一个对象。

说明

修改一个批注的作者将改变文档中所有批注的作者。

应用于 Revision 对象的 Author 属性。

返回或设置完成指定修订的用户姓名。String 类型，只读。

expression.Author

expression 必需。该表达式返回以上一个对象。

示例

当应用于 Comment 对象时。

本示例设置作者姓名，并且为活动文档的第一个批注设置作者姓名缩写。

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

当应用于 Revision 对象时。

本示例显示所选部分中的第一节的第一处修订的作者姓名。

Dim rngSection as Range

Set rngSection = Selection.Sections(1).Range
MsgBox "Revisions made by " & rngSection.Revisions(1).Author