Kill the file based on date

[Villalobos]

Hello,

I would like to ask that is it possible that if the date is "Today" then the macro kill the file?

[macropod]

Kill what file? A macro cannot delete any open document - including the one that contains it.

[macropod]

Cross-posted at: http://www.mrexcel.com/forum/general...e-ms-word.html
For cross-posting etiquette, please read: http://www.excelguru.ca/content.php?184

[Villalobos]

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

[macropod]

The nearest Word equivalent of that would be:

Private Sub Document_Open()
If Date > DateSerial(2014, 7, 10) Then
  With ThisDocument
    .Saved = True
    Kill .FullName
    Application.Quit
  End With
End If
End Sub

As I've already said, though, you can't delete an open document.

[Villalobos]

Hello Paul,

Thank you for your time. I am very disappointed to can not do it but you are absolutely right, not possible to delete. The code is stop due to Run-Time error '70': Permission denied (at line Kill .FullName).

Just for my knowledge. What is reason why this function is not working in Word but working in Excel?

[macropod]

Because that's the way Word works. Unlike Excel, Word creates numerous temporary files and these too need to be managed. Simply killing a document and quitting Word would leave these temporary files behind, so Word doesn't allow you to do that.

[Villalobos]

Thank you the explanation.
I have found an alternative solution... I can delete the file contents with this:
Selection.WholeStory
Selection.Delete

[rdross51]

Originally Posted by Villalobos

Thank you the explanation.
I have found an alternative solution... I can delete the file contents with this:
Selection.WholeStory
Selection.Delete

I have a similar need. Can you provide the code you ended up using?

[macropod]

Somewhat simpler is:
ThisDocument.Content.Delete

Note, though, that neither the above nor your code will delete anything from headers or footers.