Kill me code in MS Word

[Villalobos]

Hello, Could somebody help me what would be the MS Word vba equivalent of this excel "kill me" code? Thanks in advance the reply.

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]

Cross-posted at: Kill the file based on date
For cross-posting etiquette, please read: Excelguru Help Site - A message to forum cross posters

 

[Villalobos]

this is the solution what I can use to delete the file contents:
Selection.WholeStory
Selection.Delete

the problem has been solved