Thread: [Solved] word 2003 date picker
View Single Post
 
Old 09-27-2010, 11:41 AM
nashville nashville is offline Windows XP Office 2003
Novice
 
Join Date: Sep 2010
Posts: 8
nashville is on a distinguished road
Default

Hi,

I followed the steps but it places the date somewhere else and not at the 11 characters place. Here is the VBA code that I have.

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")
Selection.MoveDown Unit:=wdLine, Count:=54
Selection.MoveRight Unit:=wdCharacter, Count:=15
Selection.MoveDown Unit:=wdLine, Count:=2
Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
Selection.Text = Format(Calendar1.Value, "mmm dd yyyy")
End Sub

Thanks for your help.
Reply With Quote