Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Formularfelder: Automatisch ausfüllen und auf Ereignisse reagieren
Listing 7.17 Das Datumsformat passt sich den Windows-Ländereinstellungen an
If System.CountryRegion = wdGermany Then
ActiveDocument.FormFields("tmDatum").TextInput.EditType _
Type:=wdDateText, _
Format:="d. MMMM yyyy"
Else
ActiveDocument.FormFields("tmDatum").TextInput.EditType _
Type:=wdDateText, _
Format:="MMMM d, yyyy"
End If
ActiveDocument.FormFields("tmDatum").Result = Now()
Zuständig für das richtige Datumsformat ist bei der EditType-Methode der Parameter
Format, der je nach Windows-Ländereinstellung zwischen dem »deutschen« Format im
Stil von »29. Mai 2013« und dem »englischen« Format im Stil von »May 29, 2013«
unterscheidet.
Setzen Sie in Ihrer Dokumentvorlage oder in Ihrem Formular Kombinationsfeld-
Formularfelder (= Dropdown-Listenfelder) ein, deren Auswahl Sie dynamisch per
VBA anpassen möchten? Um dem Benutzer beispielsweise die Auswahl zwischen verschiedenen
Niederlassungen zu ermöglichen? Übergeben Sie in diesem Fall mit den
folgenden VBA-Kommandos die zur Auswahl stehenden Einträge an das Kombinationsfeld-Formularfeld:
Listing 7.18 Die Einträge im Kombinationsfeld-Formularfeld lassen sich per VBA festlegen
ActiveDocument.FormFields("tmNiederlassung") _
.DropDown.ListEntries.Clear
ActiveDocument.FormFields("tmNiederlassung") _
.DropDown.ListEntries.Add Name:="Berlin"
ActiveDocument.FormFields("tmNiederlassung") _
.DropDown.ListEntries.Add Name:="Hamburg"
ActiveDocument.FormFields("tmNiederlassung") _
.DropDown.ListEntries.Add Name:="Köln"
ActiveDocument.FormFields("tmNiederlassung") _
.DropDown.ListEntries.Add Name:="München"
ActiveDocument.FormFields("tmNiederlassung") _
.Result = "Köln"
Neue Einträge werden im Kombinationsfeld-Formularfeld mithilfe der Methode
.DropDown.ListEntries.Add unter Angabe des Namens, beispielsweise Name:="Köln" hinzugefügt.
Die Reihenfolge im Dropdown-Listenfeld entspricht später exakt der Reihenfolge
des Hinzufügens. Damit beim erneuten Aufruf der Routine die Einträge nicht doppelt
erscheinen, wird das Dropdown-Listenfeld anfangs mit .Clear zurückgesetzt.
Um den voreingestellten Eintrag festzulegen, dient wie bei normalen Textfeld-Formularfeldern
die Methode .Result. Wichtig dabei ist, dass der per .Result übergebene Wert
auch tatsächlich in der Auswahl des Dropdown-Listenfeldes vorhanden ist; andernfalls
erzeugen Sie einen Fehler.
Beispielroutinen zur Anpassung der Formularfeldeigenschaften finden Sie in der Datei VBA_Formularfelder-
Eigenschaften-ändern.dotm im Ordner Kapitel07.
227