View.Zoom Property (Word)
Returns a Zoom object that represents the magnification for the specified view.
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.