Range.TextVisibleOnScreen (Word)

Returns a Long that indicates whether the text in the specified range is visible on the screen.

The TextVisibleOnScreen property returns 1 if all text in the range is visible; it returns 0 if no text in the range is visible; and it returns -1 if some text in the range is visible and some is not. Text that is not visible could be, for example, text that is in a collapsed heading.

Dim lngTextVisibleOnScreen As Long
lngTextVisibleOnScreen = ActiveDocument.Range.TextVisibleOnScreen