Running a macro containing the following code will insert a date 30 days in
the future at the location of the cursor.
Selection.InsertBefore DateAdd("d", 30, Date)
You can use the formatting function to get the format that you want. e.g.
Selection.InsertBefore Format(DateAdd("d", 30, Date), "dddd, MMMM d, yyyy")
will insert
Monday, June 27, 2005
--
Hope this helps.
Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.
Doug Robbins - Word MVP