Comment ajouter un bouton à un document Word et affecter son événement Click au moment de l'exécution

Retour au début

Étapes pour créer l'exemple

1. Démarrer un nouveau document dans Word.
2. Appuyez sur ALT + F11 pour passer à Visual Basic Editor.
3. Dans le menu Outils , cliquez sur Références .
4. Sélectionnez la référence pour Microsoft Visual Basic pour applications .
5. Insérez un nouveau module et puis ajouter l'exemple de code suivant.

   Sub Test()
       
       'Add a command button to a new document
       Dim doc As Word.Document
       Dim shp As Word.InlineShape
       Set doc = Documents.Add
       
       Set shp = doc.Content.InlineShapes.AddOLEControl(ClassType:="Forms.CommandButton.1")
       shp.OLEFormat.Object.Caption = "Click Here"
       
       'Add a procedure for the click event of the inlineshape
       '**Note: The click event resides in the This Document module
       Dim sCode As String
       sCode = "Private Sub " & shp.OLEFormat.Object.Name & "_Click()" & vbCrLf & _
               "   MsgBox ""You Clicked the CommandButton""" & vbCrLf & _
               "End Sub"
       doc.VBProject.VBComponents("ThisDocument").CodeModule.AddFromString sCode
           
   End Sub

6. Exécutez la macro Test ».
7. Une fois la macro « test » terminée, vous verrez un nouveau contrôle CommandButton sur un nouveau document. Lorsque vous cliquez sur le contrôle bouton de commande , l'événement Click de déclenche le contrôle.

Retour au début

Remarques supplémentaires pour Word 2002 et Word 2003

Retour au début