Visual Basic para Aplicaciones - Autoeliminar Archivo Words

Hola:

Queria saber si es posible autoeliminar un archivo word al igual que un archivo excel. Tengo el Sgte. codigo para autoeliminar archivos excel, pero ¿como debiera ser para un documento word?, entendiendose que ejecutamos la macro dentro del mismo archivo que eliminaremos.

aca el codigo para excel:

Sub AutoDestruccion()
On Error Resume Next
Application.DisplayAlerts = False
With ActiveWorkbook
.ChangeFileAccess xlReadOnly
Kill .FullName
.Close
End With
Application.DisplayAlerts = True
End Sub

Gracias

Como puedo hacer para que se elimine en un mes despues de la primera vez que utilizo??