Automatically update dates using a macro

matthew544 · #1 07-05-2011, 07:51 AM

I am not too familiar with macros, but I am trying to create one that can automatically update dates in a particular document. The document is used for training purposes and contains a large number of different dates. As time passes, all of the dates need to be updated. In other words, I need to change 06/21/2010 to 06/21/2011 and 12/02/1999 to 12/02/2000, and so on. Some dates are also in the MM/DD/YY format. I tried to use a basic find/replace macro (shown below), but ran into problems. Because the macro is replacing all instances of each number, the month and day (as well as other non-date numbers contained in the document) are also being changed. 06/01/08 is turning into 07/02/09, and I don't want that.

If I put the years inside form fields and add a bookmark to each field, is there a way to modify my code so that the find/replace function only works for those particular fields?

Thanks for any help that anyone can provide.

Code:

Sub test1()

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "2011"
   .Replacement.Text = "2012"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False

End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "2010"
   .Replacement.Text = "2011"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
   .Text = "10"
   .Replacement.Text = "11"
   .Forward = True
   .Wrap = wdFindContinue
   .Format = False
   .MatchCase = False
   .MatchWholeWord = False
   .MatchWildcards = False
   .MatchSoundsLike = False
   .MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

...etc

End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Automatically update web images on Powerpoint	thetodd14	PowerPoint	0	05-04-2011 10:37 AM
How to update automatically the “file name” as we do for the “Date”?	Jamal NUMAN	Word	2	01-06-2011 02:43 PM
Letter Head Template - Update all other templates automatically	nirok	Word	1	11-25-2010 03:14 PM
How to set links that automatically update	tkelly5446	Project	1	11-17-2010 04:26 AM
Automatically update text changes in Word - how do I do it?	jonrm	Word	2	05-21-2009 08:49 AM