Hahner_Microsoft-Word-2010---Das-Ideenbuch_ISBN_9783866457980

Benutzerdaten abrufen: INI-Datei, Registry oder Active Directory
Listing 7.1 VBA-Routine zur Zuweisung eines Designs
Sub pDesignZuweisen(ByVal strvDesignName As String)
Dim strDesignPfad As String
Dim intZähler As Integer
Dim intAnzPathSeparator As Integer
If Application.Version "14.0" Then
MsgBox Prompt:="Die Routine arbeitet nur in Word 2010", _
Buttons:=vbInformation, _
Title:="Achtung"
Exit Sub
End If
strDesignPfad = Application.Path
For intZähler = 1 To Len(strDesignPfad)
If Mid(strDesignPfad, intZähler, 1) = "\" Then _
intAnzPathSeparator = intZähler
Next intZähler
strDesignPfad = Mid(strDesignPfad, 1, intAnzPathSeparator - 1) & _
"\Document Themes 14\" & strvDesignName
ActiveDocument.ApplyDocumentTheme (strDesignPfad)
End Sub
Die Routine rufen Sie mit pDesignZuweisen strvDesignName:= auf, wobei Sie
durch den Namen des gewünschten Designs, beispielsweise "Austin.
thmx" ersetzen. In der Routine wird zuerst sichergestellt, dass Word 2010 zum Einsatz
kommt. Dann wird der Pfad zur Designdatei im Programme-Ordner ermittelt und zum
Schluss das Design zugewiesen. Sollte sich die Designdatei im Profilordner oder im
Arbeitsgruppenordner befinden, müssen Sie die Ermittlung des Designpfades entsprechend
anpassen. Hier kann auch eine Fallback-Lösung sinnvoll sein, die nacheinander
prüft, in welchem Pfad sich die gewünschte Designdatei befindet, und dann die
Zuweisung vornimmt.
Den Beispielprogrammcode finden Sie in der Datei VBA_Design-zuweisen.docm im Ordner Kapitel07.
Benutzerdaten abrufen: INI-Datei, Registry
oder Active Directory
Sind Dokumentvorlagen und Formulare maximal komfortabel und unterstützen
unsere »Bequemlichkeit«, werden sie freudig an- und als Arbeitserleichterung wahrgenommen.
Warum nicht dafür sorgen, dass beim Öffnen einer (Brief-)‌Dokumentvorlage
bereits die persönlichen Daten eingetragen werden? Dies spart viel Tipparbeit und
reduziert so ganz nebenbei mögliche Fehlerquellen.
Bevor die persönlichen Daten (wie in diesem Kapitel im Abschnitt »Inhaltssteuerelemente:
Automatisch ausfüllen und auf Ereignisse reagieren« und im Abschnitt »Formularfelder:
Automatisch ausfüllen und auf Ereignisse reagieren« beschrieben) in der
207