Window.UsableWidth (Word)

Gibt die Breite (in Punkt) des aktiven Arbeitsbereichs im angegebenen Dokumentfenster zurück.

Wenn keiner der Arbeitsbereiche im Dokumentfenster angezeigt wird, gibt UsableWidth 1 zurück.

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