Window.UsableHeight (Word)

Retorna a altura em pontos da área de trabalho ativa na janela de documento especificada. Long somente leitura.

Se nenhuma das áreas de trabalho estiver visível na janela de documento, UsableHeight retornará 1. Para determinar a altura real disponível, subtrai 1 do valor de UsableHeight.

With ActiveDocument.ActiveWindow 
 MsgBox "Working area height = " _ 
 & .UsableHeight & vbLf _ 
 & "Working area width = " _ 
 & .UsableWidth 
End With