Loop Macro to Edit Date

macropod · #1 02-21-2014, 12:01 AM

In that case, only a few minor changes to the previous code are required, being nothing more that deleting the day parts of the date references:

Code:

...
StrRep = Format(DateAdd("d", -1, CDate(Month(Now()) & "/1/" & Year(Now()))), "MMMM YYYY")
...
      .Text = "[ADJMO][abceghlmnorstuy]{2,7} [12][0-9]{3}"
      .Execute Replace:=wdReplaceAll
      .Text = "February [12][0-9]{3}"
      .Execute Replace:=wdReplaceAll
      .Text = "[AJSN][beilmnoprtuv]{4,8} [12][0-9]{3}"
...

Indeed, all of:

Code:

      .Text = "[ADJMO][abceghlmnorstuy]{2,7} [12][0-9]{3}"
      .Execute Replace:=wdReplaceAll
      .Text = "February [12][0-9]{3}"
      .Execute Replace:=wdReplaceAll
      .Text = "[AJSN][beilmnoprtuv]{4,8} [12][0-9]{3}"

could be reduced to:

Code:

      .Text = "<[JFMASOND][a-ceg-il-pr-vy]{2,8} [12][0-9]{3}>"

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Loop Macro to Edit Date	damaniam	Word VBA	11	12-05-2013 08:28 AM
Macro to loop in Word	Yamaha Rider	Word VBA	2	02-07-2012 05:33 PM
WORD Macro - import picture - resize - position - page break - loop	Nano07	Word VBA	2	11-02-2011 05:14 AM
Macro to loop in subfolders, change links, export xml data	Catalin.B	Excel Programming	2	09-08-2011 11:37 PM
'Last edit date'	markg2	Word	3	12-26-2010 04:27 PM