Deleting the Open Document File

Periodically, I go through the files in my Word directories to determine if any of the old documents can be safely deleted. Many times, I need to open the file to examine it before I can make a determination as to whether it should be deleted.

Of course, Word will let you delete a file listed in the Open or Save dialog boxes, but it will not delete the active document—the one that is open at the current time. Rather than close the active document and then delete it by opening the Open or Save dialog boxes, I use the following macro to delete a file which is open.

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

The macro prompts you to make sure that you want to delete the file, and (if you do) it closes the document without saving and then deletes it. You should note that the file will not go to the Recycle Bin, but will be immediately deleted.