☰

Usando "Reduzir para uma página" com VBA

tag-icon • tag-icon microsoft-word vba macros
Usando "Reduzir para uma página" com VBA

Encontrei um ótimo recurso chamado "Shrink to One Page"Microsoft Word. Quero chamar esse recurso por meio de uma macro no Document Openevento.

https://lextechreview.com/microsoft-word-tips-hidden-feature-shrink-one-page/

Encontrei esses links, mas não consigo encontrar exatamente o que desejo.

Por exemplo:

https://docs.microsoft.com/en-us/office/vba/api/word.selection.shrink

If Selection.Type = wdSelectionNormal Then 
 Selection.Shrink 
Else 
 MsgBox "You need to select some text." 
End If

Mas isso faz apenas o seguinte -> Este exemplo recolhe o texto selecionado para a próxima unidade menor de texto.

Eu preciso que ele "reduza para uma página"

Obrigado

Responder1

Acredito que o nome do método que você deseja usar é FitToPages. Aplica-se a todo o documento e não apenas a uma única página, como indica o rótulo da Barra de Ferramentas de Acesso Rápido.

Um exemplo de uso do comando seria:ActiveDocument.FitToPages

informação relacionada