Examples:
The following VBA example creates five pages and adds a view for each page. The zoom level is incremented by 50 for each page, and the UseZoom property is set to False.
Sub Test()
Dim Vw As View
Dim VwCollection As Views
Dim intCounter As Integer
Set VwCollection = ActiveDocument.Views
For intCounter = 1 To 5
ActiveDocument.AddPages (1)
Set Vw = VwCollection.AddActiveView("TestView" & intCounter)
Vw.Zoom = CDbl(intCounter * 50)
Vw.UseZoom = False
Next intCounter
Set Vw = Nothing
Set VwCollection = Nothing
End Sub