Schreibbüro Richter

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.