Eine Dialogbox bietet beim Speichern von Dokumenten mehrere Verzeichnisse an

Oft ist es ziemlich lästig, sich beim ersten Speichern einer Datei durch die gesamte Verzeichnisstruktur zu kämpfen, bis man schließlich den Zielordner gefunden hat. Wenn Sie alle Texte in einem gemeinsamen Ordner ablegen, hat Word bereits vorgesorgt. Diesen häufig verwendeten gemeinsamen Ordner können Sie im Register »Dateiablage« des Menüs »Extras | Optionen« nach einem Doppelklick auf die Zeile »Dokumente« eintragen.
Aber oft genügt eben nicht ein Ordner und man verwendet vier oder fünf Verzeichnisse, um etwas mehr System in die Dateiablage zu bringen. In diesem Fall hilft Ihnen das im Kasten abgedruckte Makro weiter: Es präsentiert eine Dialogbox mit einer Liste von Ordnern, die Sie in den ersten Zeilen des Makros festlegen. Sie müssen nur noch einen Dateinamen angeben und ankreuzen, in welches Verzeichnis Word die Datei speichern soll.
Um das Makro einzugeben, wählen Sie »Extras | Makro« und tragen einen Namen in das Feld »Makroname« ein. Nach einem Klick auf »Erstellen« können Sie das Makro eintippen und anschließend speichern. Besonders praktisch ist es natürlich, das Makro als Button in der Symbolleiste einzurichten.
Dafür klicken Sie eine der Symbolleisten mit der rechten Maustaste an und wählen »Anpassen«. Markieren Sie »Makros« im Register »Symbolleisten«; nun können Sie das soeben angelegte Makro auswählen und per Drag and Drop in die Symbolleiste ziehen. Im nächsten Fenster »Benutzerdefinierte Schaltfläche« klicken Sie auf »Abbrechen« und in der Symbolleiste erscheint eine leere Schaltfläche.
Klicken Sie nun die Schaltfläche »Speichern« mit der rechten Maustaste an. Weil Sie sich immer noch im Modus »Anpassen« befinden, erscheint ein Popup-Menü, in dem Sie »Schaltflächensymbol kopieren« auswählen. Klicken Sie den leeren Button an und wählen Sie »Schaltflächensymbol einfügen« und Sie erhalten eine Kopie der Schaltfläche »Speichern«. Klicken Sie sie mit der rechten Maustaste an und wählen Sie »Schaltflächensymbol bearbeiten«. Im Editor verändern Sie das Symbol so, daß es noch als Speichern-Schaltfläche zu erkennen ist, aber nicht mit dem Original verwechselt werden kann.
Makrolisting zum komfortablen Speichern:
Sub MAIN
Dim Pfad$(4)
Pfad$(0) = "d:\texte"
Pfad$(1) = "d:\briefe"
Pfad$(2) = "d:\privat"
Pfad$(3) = "d:\schule"
Pfad$(4) = "d:\rechnungen"
anfang:
Begin Dialog BenutzerDialog 512, 226, "Speichern als"
Text 19, 29, 76, 13, "Datei:", .Text1
Text 19, 57, 33, 13, "Pfad", .Text2
TextBox 139, 27, 180, 18, .Textfeld1
OptionGroup .Gruppenfeld1
OptionButton 140, 58, 208, 16, Pfad$(0), .Optionsfeld1
OptionButton 140, 78, 208, 16, Pfad$(1), .Optionsfeld2
OptionButton 140, 98, 208, 16, Pfad$(2), .Optionsfeld3
OptionButton 140, 118, 208, 16, Pfad$(3), .Optionsfeld4
OptionButton 140, 138, 208, 16, Pfad$(4), .Optionsfeld5
OKButton 140, 178, 88, 21
CancelButton 250, 178, 108, 21
End Dialog
Dim Dlg As BenutzerDialog
If Dialog(Dlg) Then
Flag# = Dlg.Gruppenfeld1 : Datei$ = Dlg.Textfeld1
End If
If Datei$ <> "" Then
Datei$ = Pfad$(Flag#) + "\" + Datei$
a$ = Files$(Datei$ + ".doc")
If a$ = "" Then
DateiSpeichernUnter .Name = Datei$
Else
SF = MsgBox("Überschreiben?", 36)
If SF = - 1 Then
DateiSpeichernUnter .Name = Datei$
Else
Goto anfang
End If
End If
End If
End Sub