Удаление файла открытого документа

Автор: | 17.05.2021

Периодически я просматриваю файлы в своих каталогах Word, чтобы определить, можно ли безопасно удалить какой-либо из старых документов. Часто мне нужно открыть файл, чтобы изучить его, прежде чем я смогу решить, следует ли его удалить.

Конечно, Word позволит вам удалить файл, указанный в Open или Сохраните диалоговые окна, но не удалит активный документ – тот, который открыт в текущий момент. Вместо того, чтобы закрыть активный документ и затем удалить его, открыв диалоговые окна «Открыть» или «Сохранить», я использую следующий макрос для удаления открытого файла.

 Sub DeleteThisFile () Dim MyFile As String MyFile  = ActiveDocument.Path & "" & ActiveDocument.Name Если MsgBox (MyFile & "будет удален навсегда", _ vbYesNo, "Удалить этот файл?") = VbYes Then ActiveDocument.Close (wdDoNotSaveChanges) Kill MyFile End IfEnd Sub 

Макрос предлагает вам убедиться, что вы хотите удалить файл, и (если вы это сделаете) он закрывает документ без сохранения, а затем удаляет его. Обратите внимание, что файл не попадает в корзину, а сразу удаляется.