Comment.Contact (Word)

Returns a CoAuthor object that represents the author of the specified comment. 


Dim carContact As CoAuthor
Set carContact = Selection.Comments(1).Contact