Examples:
The following VBA example creates five pages and adds a view for each page. The zoom is incremented by 10 for each page, and the UsePage 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 * 10)
Vw.UsePage = False
Next intCounter
Set Vw = Nothing
Set VwCollection = Nothing
End Sub