Aktuelles Dokument mit Hilfe eines Makros löschen

Wenn Sie gerade dabei sind, Ihre Festplatte aufzuräumen, wäre es manchmal praktischer, veraltete und überflüssige Dokumente direkt in Word zu löschen, anstatt jedes Mal in den Explorer wechseln zu müssen, um dort die Datei von der Platte zu putzen. Allerdings enthält Word keine entsprechende Funktion.

Wenn Sie sicher sind, daß Sie keine Dateien versehentlich löschen werden, können Sie Word um diese praktische Funktion erweitern. Das im Kasten abgedruckte Makro präsentiert eine Dialogbox, in der Sie gefragt werden, ob Sie sicher sind, daß Sie die Datei tatsächlich löschen wollen. Wenn Sie in dieser Dialogbox die Option »Ja« aktivieren und mit einem Klick auf »OK« bestätigen, wird die Datei geschlossen und danach entsorgt. Für das Löschen sorgt der Befehl »Kill«.

Besonders praktisch wird das Makro zum Löschen von Dateien, wenn Sie es in das Menü »Datei« aufnehmen. Dafür müssen Sie zunächst eine der Symbolleisten mit der rechten Maustaste anklicken und »Anpassen« wählen. Wechseln Sie dann zu den »Menüs« und markieren Sie in der Liste »Kategorien« den Eintrag »Makros«. Stellen Sie sicher, daß in dem Feld »Menü ändern« das Menü »&Datei« aktiv ist und wählen Sie bei Bedarf noch eine »Position im Menü« aus. Nach dem »Hinzufügen« ist das Menü »Datei« um den Namen des neuen Makros und Word um eine praktische, neue Funktion erweitert.
Makrolisting zum Löschen der aktuellen Datei:
Sub MAIN
On Error Goto Fehler
x$ = DateiName$()
Begin Dialog BenutzerDialog 450, 140, "Aktives Dokument löschen"
OKButton 290, 63, 120, 21
CancelButton 290, 94, 120, 21
Text 27, 13, 401, 29, x$ + " wirklich löschen?"
GroupBox 27, 49, 164, 67, "Bestätigen"
OptionGroup .Auswahl
OptionButton 37, 70, 53, 16, "Nein", .Optionsfeld1
OptionButton 37, 91, 65, 16, "Ja", .Optionsfeld2
End Dialog
Dim Dlg As BenutzerDialog
If Dialog(Dlg) Then
If Dlg.Auswahl = 1 Then DateiSchließen 2 : Kill x$
End If
Fehler:
End Sub