I want to calculate a date 1 year ahead of a date in a bookmark

[Terry Kinnard]

I want to be able to calculate a new date 1 year ahead of a date that is
stored or entered in a bookmark so that if the value under the bookm ark
changes the calculated date value will also change. In Excel I can easily do
date calculation but if it's available in Word help is NO help.

 

[Steve Yandl]

Terry,

See if something like this would work.

Sub DateReCalc()
Dim strOldDate As String
Dim dteNewDate As Date

strOldDate = ActiveDocument.Bookmarks("origDate").Range.Text
dteNewDate = DateAdd("yyyy", 1, DateValue(strOldDate))

MsgBox dteNewDate

End Sub

Steve Yandl

 

[Doug Robbins - Word MVP]

See fellow MVP Macropot’s Word Date Calculation Tutorial at:

http://lounge.windowssecrets.com/index.php?showtopic=249902

Or

http://www.gmayor.com/downloads.htm#Third_party


--
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, originally posted via msnews.microsoft.com