expression.ShowBy
expression Required. An expression that returns a Comments collection object.
Remarks
To view the comments by all reviewers, set this property to "All Reviewers."
Example
The following example displays comments made by Don Funk.
If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.ActiveWindow.View.SplitSpecial = wdPaneComments
ActiveDocument.Comments.ShowBy = "Don Funk"
End If