Using a Macro to Insert a Custom Formatted Date

MORE INFORMATION

1. From the Tools menu, choose Macro. Type a name for the new macro and choose the Create button.
2. In the macro editing window, enter the text below. (Sub MAIN and End Sub are already listed.)

   Word 7.0

      Sub MAIN
       Defaultdate$=GetPrivateProfileString$(
        "HKEY_CURRENT_USER\software\Micr soft\Word\7.0\Options","dateformat",
         "")
       SetPrivateProfileString(
        "HKEY_CURRENT_USER\software\Microsoft\Word\7.0 Options", "dateformat",
        "MMMM d,yyyy", "")
       Days$ = InputBox$("Please enter the number of days from Today ")
       NumDays = Val(days$)
       serialEndDate = Now() + numDays
       EndDate$ = Date$(serialEndDate)
       Insert enddate$
       SetPrivateProfileString
        "HKEY_CURRENT_USER\software\Microsoft\Word\7.0\Options", "dateformat",
        "defaultdate$", ""
      End Sub
   							

   This macro prompts you to enter a number of days from today and then inserts the resulting dat in "MMMM d, yyyy"(December 31, 2000) format.

   Word 6.0

      Sub MAIN
       Defaultdate$ = GetPrivateProfileString$("microsoft word",
        "dateformat","winword6.ini")
       SetPrivateProfileString "microsoft word", "dateformat", "MMMM d,
        yyyy","winword6.ini"
       Days$ = InputBox$("Please enter the number of days from today")
       NumDays = Val(days$)
       SerialEndDate = Now() + numDays
       EndDate$ = Date$(serialEndDate)
       Insert enddate$
       SetPrivateProfileString "microsoft word", "dateformat", defaultdate$,
        "winword6.ini"
      End Sub
   							

   This macro prompts you to enter a number of days from today and then inserts the resulting date in "MMMM d, yyyy"(December 31, 2000) format.
3. From the File menu, choose Close, and be sure to save the changes to the macro.
4. To run the macro, choose Macro from the Tools menu, select the macro name you assigned in step 1, and choose the Run button.

   Sub MAIN
    Defaultdate$ = GetPrivateProfileString$
     (HKEY_CURRENT_USER\software\Microsoft\Word\7.0\Options", "dateformat",
     "")
    SetPrivateProfileString
     "HKEY_CURRENT_USER\software\Microsoft\Word\7.0\Options", "dateformat",
      MMM d, yyyy", ""
    NumDays = 30
    SerialEndDate = Now() + NumDays
    EndDate$ = Date$(serialEndDate)
    Insert enddate$
    SetPrivateProfileString
     "HKEY_CURRENT_USER\software\Microsoft\Word\7.0\Options", "dateformat",
      "defaultdate$", ""
   End Sub
					

 Sub MAIN
  Defaultdate$ = GetPrivateProfileString$("microsoft word",
   "dateformat","winword6.ini")
  SetPrivateProfileString "microsoft word", "dateformat", "MMMM d,
   yyyy", "winword6.ini"
  NumDays = 30
  SerialEndDate = Now() + numDays
  EndDate$ = Date$(serialEndDate)
  Insert enddate$
  SetPrivateProfileString "microsoft word", "dateformat", defaultdate$,
   "winword6.ini"
 End Sub