Rediger

Del via


Document.FitToPages method (Word)

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

Syntax

expression. FitToPages

expression Required. A variable that represents a Document object.

Remarks

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

Example

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.

For Each doc In Documents 
 doc.FitToPages 
Next doc

See also

Document Object

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.