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
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.