定期的に、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ここをクリックして、新しいブラウザタブでその特別なページを開きます。

_WordTips_は、費用効果の高いMicrosoftWordトレーニングのソースです。

（Microsoft Wordは、世界で最も人気のあるワードプロセッシングソフトウェアです。）このヒント（1346）は、Microsoft Word 97、2000、2002、および2003に適用されます。Wordのリボンインターフェイス（Word 2007）用のこのヒントのバージョンを見つけることができます。以降）ここ：

link開いているドキュメントファイルの削除。