Créer un bouton sur le formulaire vierge. Ouvrez la fenêtre de code du bouton. Copiez et collez le texte de modèle suivant:
-mettre en place applications et des documents objets
Dim WordAppl Comme Word.Application
WordDoc Dim Comme Word.Document
-assigner une nouvelle instance pour les objets
Réglez WordAppl = New Word.Application
Réglez WordDoc = WordAppl.Documents.Add (DocumentType: = wdNewBlankDocument)
-insérer du texte
WordAppl.Selection.TypeText "(Votre texte Goes Here)"
-enregistrez le document
WordDoc.SaveAs FileName: ="C: TestWordDoc.doc"
-fermer et libérer les objets
WordDoc.Close Faux
WordAppl.Quit FauxRéglez WordDoc = Nothing
Réglez WordAppl = Nothing