Setting Dates in Editable Form Fields In a Protected Form

[Lilbit]

#1) I need a form field to default to the current date, but I want the use
to be able to change it if they want.

#2) I need a form field to default to 30 days from the current date, but
want the user to be able to change it if they want.

Thanks in advance for your help!!

-
Message posted using http://www.talkaboutsoftware.com/group/microsoft.public.word.docmanagement
More information at http://www.talkaboutsoftware.com/faq.htm

 

[Graham Mayor]

If the field must be editable, you can only do this with macros, which
creates the problem of how you are going to ensure the users will allow the
macros to run. Ideally you should save the form as a template and users
would create new documents from it. In which case you can populate the date
fields from an autonew macro e.g.

Sub Autonew()
Dim sDate As Date
Dim fDate As Date
Dim dDoc As Document
Set dDoc = ActiveDocument
sDate = Format(Date, "dd/MM/yy")
fDate = Format((Date + 30), "dd/MM/yy")
With dDoc
.FormFields("Text1").Result = sDate
.FormFields("Text2").Result = fDate
.FormFields("Text1").Select
End With
End Sub

The macro assumes the two date form fields are bookmarked Text1 and Text2.
See also http://www.gmayor.com/popup_calendar.htm and
http://www.gmayor.com/insert_a_date_other_than_today.htm

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP


<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

 

[Lilbit]

Thanks for your response. Can't quite get it to work by just inserting th
macro in the template. I'm assuming I have to read the documents yo
referred to and find what I'm missing. Thanks again!

-
Message posted using http://www.talkaboutsoftware.com/group/microsoft.public.word.docmanagement
More information at http://www.talkaboutsoftware.com/faq.htm

 

[Graham Mayor]

Set the field types as date or text - not Current Date. The macro will
insert the current date and the calculated date in the fields indicated in
the section

.FormFields("Text11").Result = sDate
.FormFields("Text14").Result = fDate