Fai la prova di usare la CreateObject.

Dim objWord As Object
Set objWord = CreateObject("Word.Application")

objWord.Visible = True

Dim objDoc As Object
Set objDoc = objWord.Documents.Add
objDoc.Activate

Se hai lo stesso problema, allora e' da qualche altra parte del codice e non in quello che hai mostrato.