Author Property Example

This example sets the author name and initials for the first comment in the active document.

If ActiveDocument.Comments.Count >= 1 Then
    With ActiveDocument.Comments(1)
        .Author = "Joe Smith"
        .Initial = "JAS"
    End With
End If

This example returns the author name for the first comment in the selection.

If Selection.Comments.Count >= 1 Then _
    aAuthor = Selection.Comments(1).Author

This example displays the author name for the first tracked change in the first selected section.

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