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

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

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

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

Обратите внимание, что файл не попадает в корзину, а сразу удаляется.

_Примечание: _

Если вы хотите знать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах WordTips), я подготовил специальную страницу, содержащую полезную информацию.

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (11642) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для старый интерфейс меню Word здесь:

link: / word-Deleting_the_Open_Document_File [Удаление файла открытого документа].