缩小文本的字体大小,使文档的页数减少。如果 Word 无法将文档的页数减少一页,则该方法会导致出错。
expression.FitToPages
expression 必需。该表达式返回一个 Document 对象。
本示例试图将活动文档的页数减少一页。
On Error GoTo errhandler
ActiveDocument.FitToPages
errhandler:
If Err = 5538 Then MsgBox "Fit to pages failed"
本示例试图将每一打开文档的页数减少一页。
For Each doc In Documents
doc.FitToPages
Next doc