Document.FitToPages (Word)

Verringert den Schriftgrad von Text so weit, dass das Dokument um eine Seite kürzer wird.

Es tritt ein Fehler auf, wenn Word die Seitenanzahl nicht um eine Seite verringern kann.

On Error GoTo errhandler 
ActiveDocument.FitToPages 
errhandler: 
If Err = 5538 Then MsgBox "Fit to pages failed"