Word 7.0: 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