Loop Macro to Edit Date

macropod · #7 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}>"

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Switch to Hybrid Mode Threaded Mode

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