☰

Использование «Сжать до одной страницы» с VBA

tag-icon • tag-icon microsoft-word vba macros
Использование «Сжать до одной страницы» с VBA

Я нашел замечательную функцию, которая называется "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

Но это делает только следующее --> В этом примере выделенный текст сворачивается в следующий меньший фрагмент текста.

Мне нужно, чтобы он «сжался до одной страницы»

Спасибо

решение1

Я полагаю, что имя метода, который вы хотите использовать, это FitToPages. Он применяется ко всему документу, а не только к одной странице, как подразумевает метка панели быстрого доступа.

Пример использования команды:ActiveDocument.FitToPages

Связанный контент