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}>"