This example changes the zoom percentage of each open window to 100 percent.
For Each myWindow In Windows
myWindow.View.Zoom.Percentage = 100
Next myWindow
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