Document.FitToPages (Word)

Diminui o tamanho da fonte do texto apenas o suficiente para que o documento caiba em uma página a menos.

Um erro ocorrerá se o Word não puder reduzir a contagem de páginas em uma página.

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