Views.AddActiveView

Function AddActiveView(Name As String) As View

Member of Views

The AddActiveView method adds the current view to the collection.


Parameters	Description
Name	Assigns a name to the new view

The following code 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