Panes
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.
Application.ActiveWindow.Panes(1).Activate
View
Each pane can be displayed in a different view
Application.ActiveWindow.ActivePane.View.Type = wdViewType.wdPrintView
Zoom
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
With Application.ActiveWindow.ActivePane.View.Zoom
.PageColumns = 2
.PageRows = 1
End With
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
Next objWindow
Closing Panes
ActiveDocument.ActiveWindow.ActivePane.Close
© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext