„Auf eine Seite verkleinern“ mit VBA verwenden

Question

Ich habe eine tolle Funktion "Shrink to One Page"in Microsoft Word gefunden. Ich möchte diese Funktion bei Bedarf über ein Makro aufrufen Document Open.

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

Ich habe diese Links gefunden, kann aber nicht genau das finden, was ich möchte.

Z.B:

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

Dies bewirkt jedoch nur Folgendes: --> In diesem Beispiel wird der ausgewählte Text auf die nächstkleinere Texteinheit reduziert.

Ich muss es auf eine Seite verkleinern

Danke

Answer 1

Ich glaube, der Methodenname, den Sie verwenden möchten, lautet FitToPages. Er gilt für das gesamte Dokument und nicht nur für eine einzelne Seite, wie die Bezeichnung der Symbolleiste für den Schnellzugriff vermuten lässt.

Ein Beispiel für die Verwendung des Befehls wäre:ActiveDocument.FitToPages