In regelmäßigen Abständen gehe ich die Dateien in meinen Word-Verzeichnissen durch, um festzustellen, ob eines der alten Dokumente sicher gelöscht werden kann. Oft muss ich die Datei öffnen, um sie zu untersuchen, bevor ich feststellen kann, ob sie gelöscht werden soll.

Mit Word können Sie natürlich eine Datei löschen, die in den Dialogfeldern Öffnen oder Speichern aufgeführt ist, aber das aktive Dokument, das derzeit geöffnet ist, wird nicht gelöscht. Anstatt das aktive Dokument zu schließen und es dann durch Öffnen der Dialogfelder Öffnen oder Speichern zu löschen, verwende ich das folgende Makro, um eine geöffnete Datei zu löschen.

Sub DeleteThisFile()

Dim MyFile As String

MyFile = ActiveDocument.Path & "\" & ActiveDocument.Name     If MsgBox(MyFile & " will be deleted permanently", _       vbYesNo, "Delete this File?") = vbYes Then         ActiveDocument.Close (wdDoNotSaveChanges)

Kill MyFile     End If End Sub

Das Makro fordert Sie auf, sicherzustellen, dass Sie die Datei löschen möchten. Wenn Sie dies tun, wird das Dokument geschlossen, ohne es zu speichern, und anschließend gelöscht.

Sie sollten beachten, dass die Datei nicht in den Papierkorb verschoben, sondern sofort gelöscht wird.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der WordTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

WordTips ist Ihre Quelle für kostengünstige Microsoft Word-Schulungen.

(Microsoft Word ist die weltweit beliebteste Textverarbeitungssoftware.) Dieser Tipp (1346) gilt für Microsoft Word 97, 2000, 2002 und 2003. Sie finden eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Word (Word 2007) und später) hier:

Löschen der geöffneten Dokumentdatei.