Document.FitToPages (Word)

Decreases the font size of text just enough so that the document will fit on one fewer pages.

An error occurs if Word is unable to reduce the page count by one.

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