Bold specific text whilst ignoring other specific text...

[Dan10]

The following code makes alphanumeric text bold (first character alpha, and variably the 2nd/3rd/4th+ numeric).

However, it also bolds out parts of dates (amongst other items not yet seen?).

Is there a way, a line? that may be added to make exceptions whether that be the date, can I restrict to what I need or other? TYA


Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Bold = True
With Selection.Find

.Text = "?" & "([0-9.,]{2,})"

.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll