|   |   | Object Model Reference : Classes : V : Views : Methods : Views.AddActiveView | 
Function AddActiveView(Name As String) As View
Member of Views
The AddActiveView method adds the current view to a collection.
The following VBA example adds five views to the collection and increments the zoom level by 25 for each view.
| Sub Test() | 
|  Dim intCounter As Integer | 
|  For intCounter = 1 To 5 | 
|   ActiveDocument.Views.AddActiveView "Test" & intCounter | 
|   ActiveDocument.ActiveWindow.ActiveView.Zoom = (intCounter * 25) | 
|  Next intCounter | 
| End Sub | 
|   |   |   | 
Copyright 2013 Corel Corporation. All rights reserved.