Range.TextVisibleOnScreen (Word)

Retorna um Long que indica se o texto no intervalo especificado é visível na tela. Somente leitura.

A propriedade TextVisibleOnScreen retornará 1 se todo o texto no intervalo estiver visível; Ele retornará 0 se nenhum texto no intervalo estiver visível; e retornará-1 se algum texto no intervalo estiver visível e outros não. O texto que não estiver visível pode ser, por exemplo, o texto que está em um título recolhido.

Dim lngTextVisibleOnScreen As Long
lngTextVisibleOnScreen = ActiveDocument.Range.TextVisibleOnScreen