Hello macropod,

My target would be that if the actual date is higher than the pre-definied date (the date is definied in the code), then the code automatically delete the file. The code would be link with the document_open event.

Basicly this that code which is working in Excel and I would like to integrate into Word.

Option Explicit
Private Sub Workbook_open()
If date > “2014.07.14” then
With ThisWorkbook
.Saved = True
.ChangeFileAccess xlReadOnly
Kill .FullName
Application.Quit
End With
End if
End Sub