E quali sono questi comandi che non funzionano?

Comunque dovresti fare una GetObject("","Word.Application")

codice:
xWord as Object

set xWord = GetObject("","Word.Application")

if xWord is Nothing Then
  msgbox "Aprire Word",vbInformation
end if