Login | Register   
LinkedIn
Google+
Twitter
RSS Feed
Download our iPhone app
TODAY'S HEADLINES  |   ARTICLE ARCHIVE  |   FORUMS  |   TIP BANK
Browse DevX
Sign up for e-mail newsletters from DevX


Tip of the Day
Language: Visual Basic
Expertise: Beginner
Dec 22, 1998

Zap Expired Docs

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 If
End Sub
In order to work, you should call this macro from a document's AutoOpen macro.
Dorin Dehelean
 
Comment and Contribute

 

 

 

 

 


(Maximum characters: 1200). You have 1200 characters left.

 

 

Sitemap