DelDocs

Sub Purge()
Dim ExpirationDate As Date
ExpirationDate = #4/1/98#
'This particular document expires on 1 April 1998

If Date >= ExpirationDate Then
'Purge the document

With Selection
.WholeStory
.Delete Unit:=wdCharacter, Count:=1
.TypeText Text:= _
"This document expired on" & _
Str(ExpirationDate) & "."
.TypeParagraph
End With
ActiveDocument.Save
'Alert the user

MsgBoxResult = MsgBox("This document has expired. " _
& "Please acquire an updated copy.", , _
"Document Purge")
End If
End Sub

'In order to work, you should call this macro from a document's AutoOpen macro.

-------------------------------------------------------------------------------------------------------