Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Inhaltssteuerelemente: Automatisch ausfüllen und auf Ereignisse reagieren
Listing 7.11 Die drei Routinen sind in der Beispielform hinterlegt
Private Sub cmdAbbrechen_Click()
Unload Me
End Sub
Private Sub cmdOK_Click()
gstrVorname = lstVornamen.Text
Unload Me
End Sub
Private Sub UserForm_Initialize()
lstVornamen.AddItem "Alina"
lstVornamen.AddItem "Arno"
lstVornamen.AddItem "Beate"
lstVornamen.AddItem "Dieter"
lstVornamen.AddItem "Frank"
lstVornamen.AddItem "Heike"
lstVornamen.AddItem "Markus"
lstVornamen.AddItem "Peter"
lstVornamen.AddItem "Rainer"
lstVornamen.AddItem "Sebastian"
End Sub
Nachdem die Form zur Auswahl des Inhaltssteuerelement-Inhalts steht, geht es mit
der Routine zum Abfragen des Ereignisses (Klick in das Inhaltssteuerelement) weiter.
Die Ereignisroutine legen Sie wie die Document_New-Routine (siehe Abbildung 7.15) im
ThisDocument-Zweig des VBA-Projekts an. Wählen Sie hierzu rechts im Code-Bereich
am oberen Rand im linken Dropdown-Listenfeld den Eintrag Document und im rechten
Dropdown-Listenfeld den Eintrag ContentControlOnEnter. Daraufhin erzeugt
Word die Document_‌ContentControlOnEnter-Routine, die ab sofort bei jedem Klick in ein
Inhaltssteuerelement im aktuellen Dokument ausgeführt wird. Insofern müssen Sie in
der Routine prüfen, welches Inhaltssteuerelement das Ereignis erzeugt hat, um dann
entsprechend darauf zu reagieren.
Um herauszufinden, welches Inhaltssteuerelement das Ereignis erzeugt hat, nutzen
Sie die ContentControl-Variable, die ein Objekt auf das gewählte Inhaltssteuerelement
darstellt. So lässt sich anschließend mit Select Case ContentControl.Tag komfortabel das
Tag (= »Name«) des Inhaltssteuerelements abfragen:
Listing 7.12 Die Case-Anweisung prüft, welches Inhaltssteuerelement das Ereignis erzeugt hat
Select Case ContentControl.Tag
Case "tagVorname"
pVornamenAuswahl cctvInhaltssteuerelement:=ContentControl
Case "tagNachname"
...
Case "tagStraße"
...
End Select
221