word 2003 date picker

Kimberly · #13 09-28-2010, 04:17 PM

By default the first calendar you insert is named Calendar1
By default the second calendar you insert is named Calendar2
(right-click on a calendar and choose Properties to see this)

So if Calendar1 is for EffectiveDate: , the code should look like:

Code:

Private Sub Calendar1_Click()
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "EffectiveDate: "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
    Selection.Text = Format(Calendar1.Value, "mmm dd yyyy")
End Sub

If the ExpirationDate: calendar is named Calendar2, then the code will be like the above, with three exceptions... the calendar name (twice) and the text to find. I suspect you did not edit the final line to be the value for Calendar2.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Calculations using values from date picker controls	Inkarnate	Word	0	06-09-2010 07:16 AM
Date Function in word?	aligahk06	Word	1	04-21-2010 06:33 AM
Word 2007 date and time picker	dmcohio	Word	2	04-09-2010 04:13 AM
new appointment date always reverts back to today's date	msills	Outlook	0	08-24-2007 08:57 AM
Imported message date change to today's date	promark	Outlook	1	12-23-2005 07:21 AM