Setting MS Word Visible

I am trying to open Microsoft Word application in automation. Sub OpenWordDoc   Dim objWord, objWordDoc   Set objWord = Sys.OleObjects("Word.Application")   Set objWordDoc = objWord.Do...