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

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


© 2024 Better Solutions Limited. All Rights Reserved. © 2024 Better Solutions Limited TopPrevNext