A lot of windows related properties are actually properties of the Pane object which is associated with the window.
If the View is not Print Layout then the Panes collection can contain such things as comments and footnotes.
Each pane can be displayed in a different view
Application.ActiveWindow.ActivePane.View.Type = wdViewType.wdPrintView
Each pane can be displayed with a different View percentage
Application.ActiveWindow.ActivePane.View.Zoom.PageFit = wdPageFit.wdPageFitBestFit
You can also specify an exact percentage.
Application.ActiveWindow.ActivePane.View.Zoom.Percentage = 125
Application.ActiveWindow.ActivePane.Zooms(wdViewType.wdNormalView).Percentage = 125
Displaying 2 pages next to each other
.PageColumns = 2
.PageRows = 1
This example sets the zoom percentage in Print Layout view so that an entire page is visible
Application.ActiveWindow.ActivePane.Zooms(wdViewType.wdPrintView).PageFit = wdPageFit.wdPageFitFullPage
This example sets the zoom percentage in Normal view to 100% for all the open windows
Dim objWindow As Window
For Each objWindow In Application.Windows
objWindow.ActivePane.Zooms(wdViewType.wdNormalView).Percentage = 100
© 2023 Better Solutions Limited. All Rights Reserved. © 2023 Better Solutions Limited TopPrevNext