Beitrag aus SmartTools Word Weekly
Aufgabenbereich für Formatvorlagen automatisch anzeigen lassen
Word 365 2021 2019 2016 2013 2010
Wenn Sie häufig mit Formatvorlagen arbeiten, ist der entsprechende Aufgabenbereich von Word sehr nützlich. Er erleichtert die Zuweisung der Vorlagen durch die Anzeige einer Vorschau. Leider müssen Sie den Bereich aber immer erst manuell öffnen. Wir zeigen, wie Sie den Aufgabenbereich mit den Formatvorlagen automatisch beim Start von Word anzeigen können. Der Aufgabenbereich, um den es geht, kann in Word mit einem Mausklick auf das kleine Pfeilsymbol ("Startprogramm für ein Dialogfeld") unten rechts in der Gruppe Start-Formatvorlagen geöffnet werden. Eine Programmoption zum permanenten Einblenden dieses Aufgabenbereichs gibt es leider nicht. Sie können aber ein VBA-Makro erstellen, das den Bereich automatisch öffnet.
Dafür nutzen Sie so genannte "Auto-Makros", die Word automatisch beim Programmstart, beim Öffnen eines vorhandenen Dokuments sowie beim Anlegen eines neuen Dokuments ausführt. Konkret sind das die Makros "AutoExec" (Programmstart), "AutoOpen" (vorhandenes Dokument) und "AutoNew" (neues Dokument). Diese Makros speichern Sie in der Standardvorlage von Word - der Datei NORMAL.DOT(M), damit sie jederzeit verfügbar sind. Konkret sieht das folgendermaßen aus:
- Drücken Sie Alt + F8, um das Dialogfenster Makros zu öffnen.
- Wählen Sie im Dropdownfeld Makros in den Eintrag "Normal.dotm (globale Vorlage)" aus.
- Geben Sie im Feld Makroname "AutoExec" ein und klicken Sie danach auf die Schaltfläche Erstellen. - Hinweis: Diese Beschreibung geht davon aus, dass Ihre Standardvorlage noch keine Auto-Makros enthält. Sollten bereits Auto-Makros wie "AutoExec" vorhanden sein, müssen Sie diese Bearbeiten und um den weiter unten genannten VBA-Code ergänzen.
- Sie gelangen jetzt automatisch in ein Codefenster der Word-Programmierumgebung. Außerdem wurde ein Prozedurgerüst für das AutoExec-Makro eingefügt. Erweitern Sie die Prozedur wie folgt:
Sub AutoExec()
Application.OnTime _
When:=Now() + TimeValue("00:00:02"), _
Name:="OpenFormatTP"
End Sub
- Mit der Anweisung "Application.OnTime" rufen Sie zeitversetzt eine weitere Prozedur auf. Hier ist es die Prozedur "OpenFormatTP", die nach 2 Sekunden gestartet werden soll. Da die Prozedur noch nicht existiert, müssen Sie sie jetzt eingeben, und zwar direkt unter der "End Sub"-Zeile der AutoExec-Prozedur:
Sub OpenFormatTP()
Application _
.TaskPanes(wdTaskPaneFormatting) _
.Visible = True
End Sub
- Die Prozedur "OpenFormatTP" macht den Aufgabenbereich Formatvorlagen (und Formatierung) sichtbar - programmiertechnisch: die Eigenschaft "Visible" des "TaskPane"-Objekts namens "wdTaskPaneFormatting" wird auf "True" (=Wahr) gesetzt.
- Damit dies nicht nur beim ersten Programmstart von Word, sondern auch beim Öffnen oder Anlegen von Dokumenten passiert, müssen Sie zwei weitere Auto-Makros in das aktuelle Codefenster einfügen, und zwar unter der "OpenFormatTP"-Prozedur:
Sub AutoOpen()
Application.OnTime _
When:=Now() + TimeValue("00:00:02"), _
Name:="OpenFormatTP"
End Sub
Sub AutoNew()
Application.OnTime _
When:=Now() + TimeValue("00:00:02"), _
Name:="OpenFormatTP"
End Sub
- Den Programmcode kennen Sie ja bereits aus dem "AutoExec"-Makro. Nun verlassen Sie die Word-Programmierumgebung per Datei-Schließen und zurück zu Microsoft Word.
- Beenden Sie Word und starten Sie es neu, um die Funktionsweise des AutoExec-Makros gleich in Aktion zu sehen.
Wie gewünscht sollte jetzt automatisch der Aufgabenbereich für Formatvorlagen geöffnet sein. Auch bei neuen oder vorhandenen Dokumenten blendet Word immer sofort diesen Bereich ein.
Vielleicht fragen Sie sich noch, warum die Prozedur "OpenFormatTP" zeitversetzt aufgerufen wird. Das liegt daran, dass die Auto-Makros noch vor dem Öffnen eines Dokuments ausgeführt werden. Und ohne geladenes Dokument verursacht die VBA-Anweisung zum Einblenden des Aufgabenbereichs einen Fehler. Das verhindern Sie, indem Sie Word 2 Sekunden Zeit lassen, ein Dokument zu öffnen.
Sollte es trotzdem zu Fehlermeldungen kommen, erhöhen Sie die Verzögerung in den Auto-Makros. Um zum Beispiel 5 Sekunden zu warten, ändern Sie den "TimeValue"-Ausdruck in:
TimeValue("00:00:05")