View.Delete

Sub Delete()

Member of View

The Delete method deletes the saved view from the View Manager.

The following code example deletes all of the views in the document:

Sub Test() 
 Dim Vw As View 
 Dim intCounter As Integer 
 For intCounter = ActiveDocument.Views.Count To 1 Step -1 
  Set Vw = ActiveDocument.Views(intCounter) 
  Vw.Delete 
 Next intCounter 
 Set Vw = Nothing 
End Sub 
Sub Test() 
 Dim Vws As Views 
 Set Vws = ActiveDocument.Views 
 While Vws.Count <> 0 
  Vws(Vws.Count).Delete 
 Wend 
 Set Vws = Nothing 
End Sub