使用 VBA“缩小到一页”

Question

我在 Microsoft Word 中发现了一个很棒的功能"Shrink to One Page"。我想通过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