Microsoft Office Forums - View Single Post - [Solved] Automatically update dates using a macro

macropod · 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