Dim oWord As New Word.Application

Set oWord = CreateObject("Word.Application")
oWord.Visible = True
oWord.Activate