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