Hi Wade,

Yes, you can automate this. Here's some sample code to get you started:

Dim dDate As Date
Dim oRng As Range
Select Case Weekday(Date)
   Case vbMonday, vbTuesday, vbWednesday, vbThursday
       dDate = Date + 1
   Case vbFriday
       dDate = Date + 3
   Case Else '''Sat. or Sun.
       ''' do nothing
End Select

Set oRng = ActiveDocument.Range
oRng.Collapse Direction:=wdCollapseEnd
oRng.InsertAfter Text:=vbCrLf & dDate

You have a lot of options for formatting your date. The last line above is
only one example. Here's another, very easy alternative:

oRng.InsertAfter Text:=vbCrLf & FormatDateTime(dDate, vbLongDate)

HTH,
Dave