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. ------------------------------------------------------------------------------------------------------- |