Document.FitToPages Method (Word)
Decreases the font size of text just enough so that the document will fit on one fewer pages.
This example attempts to reduce the page count of the active document by one page.
On Error GoTo errhandler ActiveDocument.FitToPages errhandler: If Err = 5538 Then MsgBox "Fit to pages failed"
This example attempts to reduce the page count of each open document by one page.