Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Kapitel 7
Technikwissen für Profis: Vorlagen erstellen, verteilen und automatisieren
Praxis bewährt hat sich als Name das Präfix tag gefolgt von der Angabe des Inhalts,
beispielsweise tagVorname oder tagBriefdatum.
Das Inhaltssteuerelemente-Tag darf mehrfach genutzt werden, da Word dem Inhaltssteuerelement
intern eine eindeutige ID zuweist und so die Inhaltssteuerelemente
unterscheiden kann. Gleiche Namen sind immer dann sinnvoll, wenn Sie beispielsweise
in einer Dokumentvorlage das gleiche Datum an mehreren Stellen einfügen müssen.
In diesem Fall erhalten alle Inhaltssteuerelemente das Tag tagDatum, sodass Sie
beim Ausfüllen per VBA nicht mehrere Fälle unterscheiden müssen.
Sie haben in Ihrer Dokumentvorlage oder in einem Formular Inhaltssteuerelemente für
die Benutzerdaten Vorname, Nachname, Straße, PLZ, Ort sowie für das Datum eingefügt?
Allen Inhaltssteuerelementen ist ein eindeutiges Tag (= Name) zugewiesen? Die
Benutzerdaten wurden mit den weiter vorn in diesem Kapitel im Abschnitt »Benutzerdaten
abrufen: INI-Datei, Registry oder Active Directory« beschriebenen Routinen
bereits ausgelesen und befinden sich in den zugehörigen globalen Variablen? Dann ist
die Übergabe an die Inhaltssteuerelemente mit wenigen Kommandos erledigt.
Listing 7.8 Die Routine übergibt die Benutzerdaten an alle Inhaltssteuerelemente und setzt das Datum
Sub pInhaltssteuerelementeAusfüllen()
Dim cctField As ContentControl
Dim rngCCT As Range
For Each cctField In ActiveDocument.ContentControls
Select Case cctField.Tag
Case "tagDatum"
Set rngCCT = cctField.Range
rngCCT.Text = Now()
Case "tagVorname"
Set rngCCT = cctField.Range
rngCCT.Text = gstrVorname
Case "tagNachname"
Set rngCCT = cctField.Range
rngCCT.Text = gstrNachname
Case "tagStraße"
Set rngCCT = cctField.Range
rngCCT.Text = gstrStraße
Case "tagPLZ"
Set rngCCT = cctField.Range
rngCCT.Text = gstrPLZ
Case "tagOrt"
Set rngCCT = cctField.Range
rngCCT.Text = gstrOrt
End Select
Next
Set rngCCT = Nothing
End Sub
Für den Zugriff auf die Inhaltssteuerelemente wird eine entsprechende Objektvariable
benötigt, die mit Dim cctField As ContentControl definiert wird. Dann werden in einer For-
Each-Schleife alle Inhaltssteuerelemente des aktuellen Dokuments abgefragt. Über die
216