Wildcard date format not resolved in Word - date

Question

In this loop (iii = 12 to 1 step -1), the .text wildcard doesn't find any dates at all:
With Selection.FInd
.Forward = True
.Wrap = WdFindStop
.text= "([0-9]{1,2}] " & Mon_th(iii) & ([0-9]{4}])"
.Execute
End With
But in this loop, it does:
With ActiveDocument.Content
With.Find
.Forward = True
.Wrap = WdFindStop
.text= "([0-9]{1,2}] " & Mon_th(iii) & ([0-9]{4}])"
End With
I think I need to use the first version because I want to insert a comment every time a date is found, but can't figure out why it works with one but not the other.
All help appreciated, thanks.
Also, why does .text have an initial cap when I input it but changes to lower case immediately after?

Answer 1

You can, of course, do this without that loop. For example:
.Text = "<[0-9]{1,2} [JFMASOND][abceghilmnoprstuvy]{2,8} [12][0-9]{3}>"
or:
.Text = "<[0-9]{1,2} [JFMASOND][abceglnoprtuvy]{2} [12][0-9]{3}>"
If you need different comments, that can be achieved via a Select Case statement in the loop you'll already need for adding those. Thus:
Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = "<[0-9]{1,2} [JFMASOND][abceglnoprtuvy]{2} [12][0-9]{3}>"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
Do While .Find.Found
Select Case Split(.Text, " ")(1)
Case "Jan": .Comments.Add .Duplicate, "Comment for Jan"
Case "Feb": .Comments.Add .Duplicate, "Comment for Feb"
Case "Mar": .Comments.Add .Duplicate, "Comment for Mar"
Case "Apr": .Comments.Add .Duplicate, "Comment for Apr"
Case "May": .Comments.Add .Duplicate, "Comment for May"
Case "Jun": .Comments.Add .Duplicate, "Comment for Jun"
Case "Jul": .Comments.Add .Duplicate, "Comment for Jul"
Case "Aug": .Comments.Add .Duplicate, "Comment for Aug"
Case "Sep": .Comments.Add .Duplicate, "Comment for Sep"
Case "Oct": .Comments.Add .Duplicate, "Comment for Oct"
Case "Nov": .Comments.Add .Duplicate, "Comment for Nov"
Case "Dec": .Comments.Add .Duplicate, "Comment for Dec"
End Select
.Collapse wdCollapseEnd
.Find.Execute
Loop
End With
Application.ScreenUpdating = True
End Sub