Document.FitToPages (Word)

Reduce el tamaño de la fuente del texto lo justo para que el documento ocupe una página menos.

Si Word no es capaz de reducir en uno el número de páginas, se produce un error.

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