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