This example shows the screen tip 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 screen tip 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