透過 VBA 使用“縮小到一頁”

Question

我發現"Shrink to One Page"Microsoft Word 中有一個很棒的功能。我想透過Document Open事件巨集呼叫此功能。

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

我找到了這些鏈接，但找不到我想要的內容。

例如：

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

但這只會執行以下操作 --> 此範例將所選文字折疊到下一個較小的文字單元。

我需要它“縮小到一頁”

謝謝

Answer 1

我相信您要使用的方法名稱是FitToPages.它適用於整個文檔，而不僅僅是快速存取工具列標籤所暗示的單一頁面。

該命令的用法範例如下：ActiveDocument.FitToPages