Window.UsableWidth (Word)

Renvoie la largeur (en points) de la zone de travail active dans la fenêtre de document spécifiée.

Si aucune partie de la zone de travail n’est visible dans la fenêtre de document, la propriété UsableWidth renvoie la valeur 1.

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