Window.UsableWidth (Word)

Devuelve el ancho (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, UsableWidth devuelve 1.

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