Mit folgendem Makro (für Winword 7.0) zeigt der "DateiÖffnen"-Befehl nicht nur wie bisher alle vorhandenen Dateien mit der Endung ".doc" an, sondern zusätzlich alle Dateien mit der Endung ".dot". Wichtig: Das Makro muss die Bezeichnung "DateiÖffnen" erhalten, da nur dann beim gleichlautenden Befehl von WinWord dieses Makro verwendet wird. Das Makro erspart also das Umschalten auf den entsprechenden Datei-Typ und sollte sich in der "Normal.dot" befinden:
Sub MAIN
Dim dlg As DateiÖffnen
GetCurValues dlg
Dlg.Name="*.do?"
On Error Goto Ende
Dialog dlg
DateiÖffnen dlg
Ende:
End Sub.
Für Winword 8.0 muss wie folgt vorgegangen werden: Zunächst mit "Alt+F11" in die VBA-Entwicklungsumgebung wechseln, dann mit "Strg+R" den Projekt-Explorer einblenden und dort auf das Pluszeichen neben dem Eintrag "Normal (NORMAL)" klicken. Jetzt unter "Module" das Modul "NewMakros" anklicken und dort folgende Prozedur eingeben:
Sub DateiÖffnen()
With Dialogs(wdDialogFileOpen)
.Update
.Name="*.do?"
.Show
End With
End Sub.
Jetzt "Datei Speichern von NORMAL" anklicken und danach die Entwicklungsumgebung mit "Datei Schließen und zurück zu Microsoft Word" verlassen.