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"