Thread: [Solved] word 2003 date picker
View Single Post
 
Old 09-27-2010, 10:19 AM
Kimberly Kimberly is offline Windows 7 Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Posts: 517
Kimberly is on a distinguished road
Default

There is no date picker in 2003. You can add a calendar control and some VBA to insert the selected date in the document.
The calendar control can be found at Insert > Object > Calendar control

To do the VBA, start by typing 11 characters in the doc where you want the date to be displayed (these 11 characters will be replaced by the date).
Turn on the macro recorder and press Ctrl+Home to go to the top of the doc, then use the keyboard to navigate to and select the 11 characters.
Turn off the recorder.
View the macro code and copy the lines that start with "Selection"
Exit the code window
Double click on the calendar control
Between the Private Sub and End Sub lines, paste the lines from the previous macro
Just before the End Sub line, add this line:
Code:
    Selection.Text = Format(Calendar1.Value, "mmm dd yyyy")
The code will resemble:
Code:
Private Sub Calendar1_Click()
    Selection.HomeKey Unit:=wdStory
    Selection.MoveDown Unit:=wdLine, Count:=10
    Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
    Selection.Text = Format(Calendar1.Value, "mmm dd yyyy")
End Sub
Return to Excel
Exit design mode of the Calendar Control
Test
If it works, delete the original macro that you recorded.
Reply With Quote