Document.FitToPages (Word)

Diminue la taille des caractères du texte de sorte que le document puisse occuper une page de moins.

Une erreur est générée si Word n'est pas en mesure d'obtenir une page de moins sur le total.

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