word 2003 date picker

Kimberly · #1 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.

nashville · #2 09-29-2010, 08:07 AM

Sorry for the trouble but I believe we may not have to use macros in the form/template. Is there a way without using macros, for users to simply enter the date? What form do I need to set for users to input the date into the field and avoid having them enter text (e.g using a text box)

Neoxis · #3 07-22-2011, 02:07 AM

Quote:

Originally Posted by Kimberly

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.

ei man i tried what you said and changed the those 3 (i.e. Calendar1->Calendar2)
however whenever i choose the second date of the same calendar it's not the Text in the " .Text = "EffectiveDate: " " is not the one changed. How can i solve this thanks...

erikgutten · #4 04-06-2012, 04:12 AM

Hey, why not use bookmark instead, and create a form, where the user enters the date. Or use a textfield. Then in my experience, the date will appear where you placed the bookmarks, depending your need, ofcource
Much more convenient, than recording macro, i think at least.

Or, you can use ask fields.

Otherwise G.Mayor, has a great tutorial here:
http://www.gmayor.com/popup_calendar.htm

Just a thought.

Good luck

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