Range.TextVisibleOnScreen (Word)

Devuelve un Long que indica si el texto del intervalo especificado está visible en la pantalla.

La propiedad TextVisibleOnScreen devuelve 1 si todo el texto del intervalo está visible; devuelve 0 si no hay texto en el intervalo visible; devuelve-1 si hay texto en el intervalo visible y some no.

Dim lngTextVisibleOnScreen As Long
lngTextVisibleOnScreen = ActiveDocument.Range.TextVisibleOnScreen