Window.UsableHeight (Word)

Devuelve el alto (en puntos) del área de trabajo activo en la ventana de documento especificada.

Si ninguna parte del área de trabajo está visible en la ventana de documento, UsableHeight devuelve 1.

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