Word VisualBasic Script

Sub view()
    Documents("Sample.doc").Windows(1).View.Type = wdReadingView
End Sub