Lancer word avec vbscript

Salut à tous,
J'ai un petit problème.
Voilà, donc je voudrais que le script suivant me lance word:

Sub openWord()
dim objWd
Set objWd=createObject("WScript.shell")
objWd.run "C:\Program Files\Microsoft Office\Office\WINWORD.EXE"

End Sub

MAis j'ai une erreur : Il me dit que le fichier est introuvable.
Au début je pensais que c'était à cause des espaces dans le chemin mais sans espaces ça marche pas non plus..

Est-ce que quelqu'un peut m'aider?