[Staceman]

I am programming a contract to be completed using a fill in form in Word 2k3. I have inserted 3 calendars using the Calendar Control OCX and now I need to know how to reference them. What is the script needed within the onclick sub? I also need to reference one of them in the form ____day of 2004, is this possible?

This is the script I have so far...it's the code for the button Next>> to post the data to the form..


Private Sub BuInfoOK_Click()

vContractNum = ContractInfo.ContractNum.Text
vSubName = ContractInfo.SubName.Text
vSubAdd1 = ContractInfo.SubAdd1.Text
vSubAdd2 = ContractInfo.SubAdd2.Text
vSubCSZ = ContractInfo.SubCSZ.Text
vSubPhone = ContractInfo.SubPhone.Text
vSubFax = ContractInfo.SubFax.Text
vContractDate = ContractInfo.ContractDate.Value
vSubContractDate = ContractInfo.SubContractDate.Value
vCompletionDate = ContractInfo.CompletionDate.Value

pToggleProtectDoc
ActiveDocument.Bookmarks("bkContractNum").Range.Text = vContractNum
ActiveDocument.Bookmarks("bkSubName").Range.Text = vSubName
ActiveDocument.Bookmarks("bkSubAdd1").Range.Text = vSubAdd1
ActiveDocument.Bookmarks("bkSubAdd2").Range.Text = vSubAdd2
ActiveDocument.Bookmarks("bkSubCSZ").Range.Text = vSubCSZ
ActiveDocument.Bookmarks("bkSubPhone").Range.Text = vSubPhone
ActiveDocument.Bookmarks("bkSubFax").Range.Text = vSubFax
ActiveDocument.Bookmarks("bkSubContractDate").Range.Text = vSubContractDate
pToggleProtectDoc

ContractInfo.Hide

Categories.Show

End Sub


Sub pToggleProtectDoc()

Set Doc = ActiveDocument
If Doc.ProtectionType = wdNoProtection Then
Doc.Protect Password:="xxxx", NoReset:=True, Type:=wdAllowOnlyFormFields
Else
Doc.Unprotect Password:="xxxx"
End If


End Sub

Private Sub ContractDate_Click()
?????????
End Sub


What is the called reference at ?????????
How do I refence and call out the date in the first sub?