I want to create a Word macro that pops up a dialog box asking the
user to input a date (ie. a start date). Then I want to fill out the
document with values such as that date + x days (ie. deadlines that
are so many days from start date).

How can I do this?

Thanks for any help.

Word New User FAQ & Web Directory:
<URL: http://www.addbalance.com/word/index.htm>

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide)
<URL: http://www.addbalance.com/usersguide/index.htm>

See also the MVP FAQ: <URL: http://www.mvps.org/word/> which is awesome!
 --------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

Here's what I have so far but it doesn't work. All it does is add a
number to the month.

Sub InsertFutureDates()
Dim strData As Date

strData = InputBox("Enter the renewal date (dd/mm/yyyy)", "d/mm/yyyy")
Selection.InsertBefore Format((strData + 2), "d/mm/yyyy")

End Sub

Any idea how to modify this so that it adds 2 days to the input date?

Thanks.

Your code works OK for me (recognizing that you've chose the date format
with days first and then month, the results I got added 2 to the first
number, which represents the days).

Another way to approach this, which gives more control over the amount of
added time, is to use the DateAdd statement, like this:

Sub InsertFutureDates()
Dim strData As Date, nDays As Integer

strData = InputBox("Enter the renewal date (dd/mm/yyyy)", "d/mm/yyyy")
nDays = Val(InputBox("Enter number of days to advance", "Add days", "2"))
strData = DateAdd(interval:="d", Number:=nDays, Date:=strData)
Selection.InsertBefore Format(strData, "d/mm/yyyy")

End Sub

--
Regards,
Jay Freedman
Microsoft Word MVP        Word MVP FAQ site: http://www.mvps.org/word

Dim sDate As String
Dim mydate As Date
sDate = InputBox("Enter start date")
If Not IsDate(sDate) Then MsgBox "Not a valid date": Exit Sub
mydate = CDate(sDate)
Selection.TypeText mydate & vbCr
Selection.TypeText DateAdd("d", 7, mydate) & vbCr
Selection.TypeText DateAdd("d", 14, mydate) & vbCr

To change the format of the dates produced, use the Format function,
e.g.:

Selection.TypeText Format(DateAdd("d", 14, mydate), "MM-dd-yy") & vbCr

Hope this helps.

-- See the MVP FAQ at http://www.mvps.org/word ----------------------
------------- "Life is nothing if you're not obsessed." --John Waters
---------------------------------------------------------------------
Please reply only to the newsgroup.