حذف فایل سند باز

Question

به صورت دوره‌ای، فایل‌های موجود در فهرست‌های ورد خود را مرور می‌کنم تا مشخص کنم آیا می‌توان هر یک از اسناد قدیمی را با خیال راحت حذف کرد یا خیر. بارها، قبل از اینکه بتوانم تصمیم بگیرم که آیا باید حذف شود یا خیر، باید فایل را باز کنم تا بررسی شود.

البته، Word به شما امکان می‌دهد فایلی را که در کادرهای گفتگوی Open یا Save فهرست شده است حذف کنید، اما سند فعال را حذف نمی‌کند - سندی که در زمان فعلی باز است. به جای بستن سند فعال و سپس حذف آن با باز کردن کادرهای گفتگوی باز یا ذخیره، از ماکرو زیر برای حذف فایلی که باز است استفاده می کنم.

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

ماکرو از شما می‌خواهد مطمئن شوید که می‌خواهید فایل را حذف کنید و (اگر این کار را انجام دهید) سند را بدون ذخیره می‌بندد و سپس آن را حذف می‌کند. باید توجه داشته باشید که فایل به سطل بازیافت نمی رود، بلکه بلافاصله حذف می شود.