Método Document.FitToPages (Word)

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

Sintaxe

expression. FitToPages

expression é obrigatório. Uma variável que representa um objeto Document.

Comentários

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

Exemplo

Este exemplo tenta reduzir a contagem de páginas do documento ativo em uma página.

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

Este exemplo tenta reduzir a contagem de páginas de cada documento aberto em uma página.

For Each doc In Documents 
 doc.FitToPages 
Next doc

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.