Sub Test() Dim v As View Dim x As Double, y As Double x = ActivePage.SizeWidth / 2 y = ActivePage.SizeHeight / 2 Set v = ActiveDocument.CreateView("My New View", x, y, 200) v.ActivateEnd Sub