Dokumentvorlagen öffnen, ohne die Voreinstellungen des Nutzers zu ändern
Wer viel mit Dokumentvorlagen arbeitet, ist es leid, sich beim Öffnen einer Vorlage mit dem Dialog Datei – Öffnen jedesmal durch die Verzeichnisstruktur bis zum Vorlagenverzeichnis von Word zu »hangeln«. Auch wenn man das Vorlagenverzeichnis in die Favoriten aufnimmt, damit es leicht zugänglich ist, sind nach jeder Benutzung das vorher eingestellte Arbeitsverzeichnis und der Filter der anzuzeigenden Dateien »verstellt«.
Abhilfe schafft die folgende Prozedur, die den Dialog Datei – Öffnen bereits mit voreingestelltem Vorlagenverzeichnis und Filter für die Dokumentvorlagen (Templates) anzeigt. Die zu Beginn vorgefundenen Einstellungen werden gespeichert und am Ende wiederhergestellt. Man bringt das Makro am besten in der Menüleiste unter: → Makro in der Menüleiste verfügbar machen.
Sub VorlagenOeffnen()
' © Schreibbüro Nora Richter
Dim VorFormat As Integer ' Container für zu Beginn eingestelltes Format
Dim VorPfad As String ' Container für zu Beginn eingestelltes Verzeichnis
With Options
VorFormat = .DefaultOpenFormat
' Einstellungen werden konserviert
VorPfad = .DefaultFilePath(wdDocumentsPath)
ChangeFileOpenDirectory .DefaultFilePath(wdUserTemplatesPath)
' Jetzt wird das Verzeichnis geändert
If Not .DefaultOpenFormat = wdOpenFormatAllWordTemplates Then
.DefaultOpenFormat = wdOpenFormatAllWordTemplates
' Vorlagen auswählen
End If
SendKeys ("+{TAB}")
' Um den Cursor in die Dropdownliste zu setzen, bei Bedarf anpassen
Dialogs(wdDialogFileOpen).Show
ChangeFileOpenDirectory VorPfad
.DefaultOpenFormat = VorFormat
' Ursprüngliche Einstellungen werden wiederhergestellt
End With
End Sub
Dialog Datei Neu als Nachbau mit einer Userform
Wenn man viel mit eigenen Dokumentvorlagen in Word arbeitet, ist der von MVP Jay Freedman mit einer Userform nachgebaute Ersatz des Word-Dialogs zum Erstellen einer neuen Datei aus einer Vorlage sehr zu empfehlen: NewDocUserform.