Word for Windows Macro to Insert Specified Dates

• Microsoft Word for Windows, versions 6.0, 6.0a, 6.0c
• Microsoft Word for Windows NT, version 6.0
• Microsoft Word for the Macintosh, versions 6.0, 6.0.1

SUMMARY

In Word, you can use a macro to have the date inserted be a number of days before or after today's date.

MORE INFORMATION

As an example, to insert a date that is seven days after today's date, you would insert the following in the macro editor depending on the platform used:

Word 6.0 for Windows NT

Sub MAIN
a$ =
GetPrivateProfileString$("HKEY_CURRENT_USER\software\Microsoft\Word\6.0\Opt
ions", "DateFormat", "")
SetPrivateProfileString
"HKEY_CURRENT_USER\software\Microsoft\Word\6.0\Options", "DateFormat",
"MMMM dddd, yyyy", ""
Insert Date$(Today() + 7)
SetPrivateProfileString
"HKEY_CURRENT_USER\software\Microsoft\Word\6.0\Options", "DateFormat", a$,
""
End Sub 

Word 6.0 for Windows

Sub MAIN
a$ = GetPrivateProfileString$("Microsoft Word", "DateFormat",
"Winword6.Ini")
SetPrivateProfileString "Microsoft Word", "DateFormat", "MMMM d,yyyy",
"Winword6.Ini"
Insert Date$(Today() + 7)
SetPrivateProfileString "Microsoft Word", "DateFormat", a$, "Winword6.Ini"
End Sub 

Word 6.0 for Macintosh

Sub MAIN
a$ = GetPrivateProfileString$("Microsoft Word", "DateFormat", "Word
Settings (6)")
SetPrivateProfileString "Microsoft Word", "DateFormat", "MMMM d,yyyy",
"Winword6.Ini"
Insert Date$(Today() + 7)
SetPrivateProfileString "Microsoft Word", "DateFormat", a$, "Word Settings
(6)"
End Sub 

Additional query words: future previous yesterday's

Keywords :
Version : MACINTOSH:6.0,6.0.1; WINDOWS:6.0,6.0a,6.0c; winnt:6.0
Platform : MACINTOSH WINDOWS winnt
Issue type :