Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Tipparbeit vermeiden: Inhaltssteuerelemente miteinander verknüpfen
Damit im Beispiel nach der Eingabe einer Artikelnummer automatisch die Bezeichnung
und der Preis angezeigt werden, sind der Einfachheit halber insgesamt vier
Artikel statisch als Konstanten hinterlegt. Für jedes der drei Artikelnummer-Textformularfelder
ist bei Beenden eine eigene VBA-Routine hinterlegt, die den Inhalt des
Textformularfeldes per Select Case-Anweisung prüft. Stimmt der Inhalt mit einer Case-
Anweisung überein, werden die zugehörigen Textformularfelder gefüllt.
Listing 7.19 Die Ereignisroutine reagiert auf die Eingabe im Textformularfeld tmArtikelnummer1
Const cstrArtikelnummer1 As String = "0815"
Const cstrBezeichnung1 As String = "PC / Komplettsystem"
Const cstrPreis1 As String = "699"
Sub pFormularfeldArtikelnummer1()
Select Case ActiveDocument.FormFields("tmArtikelnummer1").Result
Case "0815"
ActiveDocument.FormFields("tmBezeichnung1").Result = cstrBezeichnung1
ActiveDocument.FormFields("tmPreis1").Result = cstrPreis1
Case "4711"
ActiveDocument.FormFields("tmBezeichnung1").Result = cstrBezeichnung2
ActiveDocument.FormFields("tmPreis1").Result = cstrPreis2
Case "1234"
ActiveDocument.FormFields("tmBezeichnung1").Result = cstrBezeichnung3
ActiveDocument.FormFields("tmPreis1").Result = cstrPreis3
Case "5678"
ActiveDocument.FormFields("tmBezeichnung1").Result = cstrBezeichnung4
ActiveDocument.FormFields("tmPreis1").Result = cstrPreis4
Case Else
ActiveDocument.FormFields("tmBezeichnung1").Result = ""
ActiveDocument.FormFields("tmPreis1").Result = ""
End Select
End Sub
Beispielroutinen für den Einsatz der Formularfeld-Ereignisse finden Sie in der Datei VBA_Formularfelder-
Ereignisse.dotm im Ordner Kapitel07.
Tipparbeit vermeiden:
Inhaltssteuerelemente miteinander
verknüpfen
Nichts ist lästiger, als Daten mehrfach eingeben zu müssen. Warum kann der auf der
ersten Seite eingegebene Betreff nicht automatisch in die Kopfzeile der folgenden Seite
übernommen werden? Warum muss das Datum mehrfach ausgewählt werden? Doppel-
229