![]() |
||
![]() |
Dokumenten-Pfad in Titelleiste anzeigenSie bearbeiten gleichnamige Dokumente, die in verschiedenen Ordnern gespeichert sind. Da Word in der Titelleiste nur den Namen des Dokumentes, nicht aber seinen kompletten Pfad anzeigt, verlieren Sie manchmal den Überblick. Deshalb möchten Sie in der Titelleiste den Pfad zur geöffneten Datei sehen.
Dazu erweitern Sie die Funktionalität von Word über VBA. Starten Sie über »Extras | Makros | Visual Basic-Editor« den VBA-Editor. Markieren Sie im Projekt-Explorer das Projekt »Normal«. Erweitern Sie es über »Einfügen | Modul« um ein neues Modul. Geben Sie darin den folgenden VBA-Quelltext ein, den Sie unter CHIP-Code Praxis03 auch auf der Heft-CD/-DVD finden. Sub AutoOpen()Das steckt dahinter: Die Prozedur »SetActiveWindowCaption()« tauscht den Text der Titelleiste des aktuellen Fensters gegen den kompletten Pfad des gerade geöffneten Dokuments aus. Auf den Text der Titelleiste greift Visual Basic über »ActiveWindow.Caption« zu, auf den Namen inklusive Pfad des aktuellen Dokuments über die Eigenschaft »FullName« von »ActiveDocument«. Besonders wichtig ist, dass Word diese Aktion zum jeweils richtigen Zeitpunkt durchführt. Word startet die Prozedur »AutoOpen()« beim Öffnen eines Dokuments automatisch. Mit dem eingefügten Prozeduraufruf »SetActiveWindowCaption« stellen Sie sicher, dass das Programm die Titelleiste eines Dokuments beim Öffnen richtig belegt. Word muss die Titelleiste allerdings auch verändern, wenn Sie ein Dokument mit »Datei | Speichern unter« mit einem anderen Namen versehen. Dafür sorgt im Modul die Routine »DateiSpeichernUnter()«, die die Word-Funktion ersetzt. In dieser Prozedur öffnet VBA mit »Dialogs(wdDialogFileSaveAs).Show« den Dialog »Speichern unter«. Wenn der Anwender den Dialog mit »OK« beendet, ist der Rückgabewert des Befehls »-1«, und ein erneuter Aufruf von »SetActiveWindowCaption()« passt die Titelleiste entsprechend dem neuen Pfad an. |
![]() |