View.Zoom Property (Word)
Returns a Zoom object that represents the magnification for the specified view.
Syntax
expression .Zoom
expression An expression that returns one of a View object.
Example
This example changes the zoom percentage of each open window to 125 percent.
Sub wndBig()
Dim wndBig As Window
For Each wndBig In Windows
wndBig.View.Zoom.Percentage = 125
Next wndBig
End Sub
This example changes the zoom percentage of the active window so that the entire width of the text is visible.
ActiveDocument.ActiveWindow.View.Zoom.PageFit = wdPageFitBestFit