Try changing:
StrRep = InputBox("What is the replacement text?")
to:
StrRep = Format(DateAdd("d", -1, CDate(Month(Now()) & "/1/" & Year(Now()))), "MMMM D, YYYY")
and, at the end of each '.Text = ' line, before the final double quotes, insert:
, [12][0-9]{3}

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]