Automatisch auf Laufwerk A: speichern

Ich verwende Word für Windows 95 und muß meine Texte oft auf Laufwerk A: speichern, um sie anderen zukommen zu lassen. Jetzt suche ich nach einer Möglichkeit, diesen Speichervorgang über eine Symbolschaltfläche so zu automatisieren, daß Word das Dokument automatisch unter dem aktuellen Namen auf Diskette sichert.

Die beste Lösung für Sie ist ein kleines Makro, das Sie dann mit einer Symbolschaltfläche verknüpfen können. Das Makro muß zunächst den aktuellen Dateinamen ermitteln und dann das Dokument auf dem gewünschten Laufwerk speichern. Um das Makro zu schreiben, wählen Sie den Befehl Extras – Makro. Im Feld Makroname geben Sie einen aussagekräftigen Namen ein und wählen dann die Schaltfläche Erstellen. Um das Makro in allen Dokumente benutzen zu können, achten Sie bitte darauf, daß im Kombinationsfeld Makro aus der Eintrag Alle aktiven Dokumentvorlagen ausgewählt ist. Im Makro verwenden Sie folgende Anweisungsfolge:

Sub MAIN¶
Dim Dlg As DateiDateiInfo¶
GetCurValues Dlg¶
DateiSpeichernUnter .Name = “A:\“ + Dlg.DateiName¶
End Sub¶
Zuerst legen Sie eine Variable für das Speichern der aktuellen Datei-Information an. Dazu eignet sich der vordefinierte Datentyp DateiDateiInfo. Mit der zweiten Anweisung lesen Sie die Datei-Eigenschaften des momentan aktiven Dokuments in die zuvor definierte Variable. Schließlich rufen Sie die Anweisung DateiSpeichernUnter auf. Die Parameter sind so gewählt, daß Word die Datei an der mit Name festgelegten Stelle sichert. Gleichzeitig weisen Sie dem Parameter eine Zeichenkette zu, die sich aus dem Ziellaufwerk und dem Namen des Dokuments zusammensetzt.
Um das Makro mit einer Symbolschaltfläche zu verknüpfen, wählen Sie anschließend den Befehl Ansicht – Symbolleisten – Anpassen. Im folgenden Dialog wechseln Sie auf die Registerkarte Symbolleisten und markieren in der Auswahlliste Kategorie den Eintrag Makros.
Wenn Sie den Namen des Makros markieren und via Drag & Drop einer Symbolleiste hinzufügen, können Sie noch ein passendes Symbol für die neu angelegte Schaltfläche aussuchen. Sobald Sie die Auswahl mit einem Mausklick auf Schließen bestätigt haben, können Sie alle Dateien per Knopfdruck auf Laufwerk A: sichern.