Collez le code suivant directement ci-dessous le texte "Sub Test":
«Déclarer la variable.
Dim oWord Comme Word.Application
«Définissez la variable (court nouvelle instance de Word).
Réglez oWord = CreateObject ("-Word.Application "-)«Ajouter un nouveau document.
oWord.Documents.Add
«Ajouter un texte.
oWord.Selection.TypeText "-Ceci est un texte. "
"Enregistrer le document.
oWord.ActiveDocument.SaveAs Nom du fichier: = "-c: \ Mydoc.doc "
«Quittez Word.
oWord.Quit
'Effacer la variable de la mémoire.
Réglez oWord = Nothing