devxlogo

Zap Expired Docs

Why Trust Us

This VBA Microsoft Word routine purges a document when it’s opened after a predefined expiration date. I’ve only tested this macro with Word 97:

 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 IfEnd Sub

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

Charlie has over a decade of experience in website administration and technology management. As the site admin, he oversees all technical aspects of running a high-traffic online platform, ensuring optimal performance, security, and user experience.

See also  Seven Service Boundary Mistakes That Create Technical Debt
Disclosure

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

Show More