Word 8.0: Dateipfad anzeigen

Word 8.0: Dateipfad anzeigen

Ein Makro zeigt Ihnen den kompletten Pfad des aktuellen Dokuments an.

Wenn Sie öfters mit Dokumenten arbeiten, die sich nicht in der Standardablage Eigene Dateien befinden, ist es hilfreich, den kompletten Pfad der aktuellen Datei zu kennen. Leider zeigt Word in der Titelleiste nur den Dateinamen an. Als kleine Hilfestellung gibt das folgende Makro den kompletten Pfad des aktuell geöffneten Dokuments in einer Hinweisbox aus. Zusätzlich zeigt der Dialog das aktuelle Dokumentverzeichnis an. Somit sind Sie immer informiert, aus welchem Verzeichnis die zuletzt geöffnete DOC-Datei stammt.

Sub DocPathInfo()
Dim Meldg1, Meldg2, ActDoc, ActDir
Meldg1 = "Pfad des aktuellen Dokuments: "
Meldg2 = "Aktuelles Dokumentverzeichnis: "
ActDoc = ActiveDocument.FullName
ActDir = CurDir
MsgBox Meldg1 + ActDoc + (Chr(13)) + Meldg2 + ActDir
End Sub

Um das Makro anzulegen, benutzen Sie den Befehl Extras/Makro/Makros, geben im Dialog als Makroname DocPathInfo ein und klicken auf Erstellen. Fügen Sie nun im Fenster NORMAL - NewMacros (Code) des VBA-Editors das Listing ein und speichern ab.

Damit das Makro schneller zur Verfügung steht, verknüpfen Sie es mit dem Word-Befehl Extras/Anpassen mit einer Schaltfläche, einer Tastenkombination oder einem Menübefehl.

Erschienen in: PC Magazin, Ausgabe 01/99