About This Video
This video is
How to video that shows how to use a macro to insert tomorrow's date (today's date plus 1 day) into all merge documents when generating donor acknowledgement letters or receipts in Raiser's Edge. Here's the code from the video:
Sub NextDate()
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="NextDate"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
With ActiveDocument.Bookmarks("NextDate").Range
.InsertBefore Format(Date + 1, "mmmm d, yyyy")
End With
End Sub
This website uses Adobe® Flash™ Player 9
Download Flash Now
If you are using Internet Explorer, you will need to restart your browser
after installing Flash.
Adobe and Flash are registered trademarks of Adobe Systems incorporated.
All rights reserved.
REsolvedS... (5:29)
1 year ago 0 + -See more at http://www.REsolvedLLC.com
REsolvedS... (0:01)
1 year ago 0 + -Raiser's Edge(R) How To Video from the team at http://www.REsolvedLLC.com
REsolvedS... (1:59)
1 year ago 0 + -The code is in this comment and the video's description if you want to copy it:
Sub NextDate()
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:="NextDate"
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
With ActiveDocument.Bookmarks("NextDate").Range
.InsertBefore Format(Date + 1, "mmmm d, yyyy")
End With
End Sub