Hi there,



I have a word doc that acts as a contract for work to be done. I would like to automate the date field of the payment schedule.

The date I enter is the job date and exists in a table cell. In a second table I need to calculate (job date - 14 days) and (job date - 60 days).

I've wrestled with both google and word's help and I'm totally skunked.

Can anyone set me straight?

...Mike

Mike,

The answers depend what type of form and fields that your are using. For a pure field code solution see: DateCalc.zip at http://www.gmayor.com/downloads.htm

You can also use VBA to adjust dates:

Sub ScratchMacro()
'A quick macro scratch pad created by Greg Maxey
Dim oTbl As Word.Table
Set oTbl = ActiveDocument.Tables(1)
Dim oDate As Date
'Will error if cell text is not a valid date.
oDate = Left(oTbl.Cell(1, 1).Range, Len(oTbl.Cell(1, 1).Range) - 2)
oTbl.Cell(1, 2).Range.Text = DateAdd("d", 60, oDate)
oTbl.Cell(1, 3).Range.Text = DateAdd("d", -15, oDate)
End Sub

__________________
Greg Maxey
Please visit my web site at http://www.gregmaxey.com/

Thanks, I'll take a look and post back if I get stuck. There's no form though. I simply have a date in one cell, and need to calculate dates in other cells. Hopefully automatically