726487

Word als Notizblock

Sie machen sich gerne Notizen auf dem Bildschirm. Vor allem Word kommt als Notizblock zum Einsatz, da es sowieso meistens geöffnet ist. Wenn Sie die Notizen nicht mehr brauchen, müssen Sie beim Schließen des Textes jedoch eine Menge klicken und bestätigen.

Anforderung

Einsteiger

Zeitaufwand

Gering

Problem: Sie machen sich gerne Notizen auf dem Bildschirm. Vor allem Word kommt als Notizblock zum Einsatz, da es sowieso meistens geöffnet ist. Wenn Sie die Notizen nicht mehr brauchen, müssen Sie beim Schließen des Textes jedoch eine Menge klicken und bestätigen.

Lösung: Mit einem kleinen Makro (Listing am Ende des Tips) für Word 95 und Word 97 erweitern Sie Word zum perfekten Notizblock. Nachdem Sie das Makro abgespeichert haben, sollten Sie ihm über "Extras, Anpassen, Befehle, Makros" einen Button zuweisen, zum Beispiel den Mülleimer oder einen Notizblock in der Symbolleiste. In Zukunft bewirkt ein Klick auf den Mülleimer, daß Word das aktuelle Textfenster mit den Notizen ohne Rückfragen schließt.

Für den Fall, daß Sie einmal eine Notiz zu schnell wegwerfen und später feststellen, daß Sie sie doch noch dringend brauchen würden, ist vorgesorgt: Das Makro speichert die Datei unter dem Namen "Notizen.doc" im Temp-Verzeichnis des Rechners ab. So haben Sie ein Backup Ihrer zuletzt gemachten Notiz-Datei, wenn Sie einmal zu voreilig auf den Mülleimer geklickt haben. Außerdem stellt das Notiz-Makro fest, ob in Word noch ein Dokument aktiv ist. Ist nach dem Schließen der Notizdatei kein Fenster mehr offen, geht es davon aus, daß Sie Word nur für die Notizen gestartet haben, und schließt auch gleich das Word-Fenster.

LISTING für Word 95

Sub MAIN DateiSpeichernUnter.Name = (DefaultDir$(13)) + "\notiz.doc", .ZuletztBearbErweitern = 0 DateiSchließen If Fenster() = 0 Then DateiBeenden End Sub LISTING für Word 97 Public Sub MAIN() myname = Options.DefaultFilePath(wdTempFilePath) + "\notiz.doc" ActiveDocument.SaveAs (myname) ActiveDocument.Close If Application.Windows.Count = 0 Then Application.Quit End Sub

PC-WELT Marktplatz

726487