Automatically update dates using a macro

macropod · #6 12-06-2011, 03:19 AM

Hi Matthew,

I hadn't seen your follow-up post until today. You could insert the following code between the existing 'Loop' and 'End With' lines:

Code:

  With .Find
    .Text = "[!/][0-9]{1,2}/[0-9]{2,4}"
    .Execute
  End With
  Do While .Find.Found
    If Split(.Text, "/")(1) = Format(.Text, "yyyy") Then
      .Text = Left(.Text, 1) & Format(DateAdd("yyyy", 1, .Text), "m/yyyy")
    Else
      .Text = Left(.Text, 1) & Format(DateAdd("yyyy", 1, .Text), "m/yy")
    End If
    .Collapse wdCollapseEnd
    .Find.Execute
  Loop

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