View Single Post
 
Old 09-07-2012, 09:05 AM
gmaxey gmaxey is offline Windows XP Office 2010 (Version 14.0)
Expert
 
Join Date: May 2010
Location: Brasstown, NC
Posts: 1,598
gmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nicegmaxey is just really nice
Default

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/
Reply With Quote