Sub Test() Dim w As Window Set w = ActiveDocument.ActiveWindow w.WindowState = cdrWindowNormal w.Width = AppWindow.Width / 2 w.ActiveView.Zoom = 200End Sub