Change the document view to wdMasterView
Sub view() Documents("Sample.doc").Windows(1).View.Type = wdMasterView End Sub