☰

Usando "Reducir a una página" con VBA

tag-icon • tag-icon microsoft-word vba macros
Usando "Reducir a una página" con VBA

Encontré una gran característica llamada "Shrink to One Page"Microsoft Word. Quiero llamar a esta función a través de una macro en Document Openun evento.

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

Encontré estos enlaces pero no encuentro exactamente lo que busco.

P.ej:

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

Pero esto solo hace lo siguiente: --> Este ejemplo contrae el texto seleccionado a la siguiente unidad de texto más pequeña.

Necesito que "Reduzca a una página"

Gracias

Respuesta1

Creo que el nombre del método que desea utilizar es FitToPages. Se aplica a todo el documento y no solo a una página como lo implica la etiqueta de la barra de herramientas de acceso rápido.

Un ejemplo de uso del comando sería:ActiveDocument.FitToPages

información relacionada