expression.ShowTip
expression Required. An expression that returns a Comment object.
Example
This example shows the ScreenTip for the first comment in the active document.
If ActiveDocument.Comments.Count >= 1 Then
ActiveDocument.Comments(1).ShowTip = True
End If
This example shows the ScreenTip for the next comment in the active document.
If ActiveDocument.Comments.Count >= 1 Then
With Selection
.GoTo What:=wdGotoComment, Which:=wdGotoNext
.MoveEnd Unit:=wdWord, Count:=1
.Comments(1).ShowTip = True
End With
End If