For the second process you might insert:
Code:
For i = 0 To UBound(Split(StrFndB, ","))
With .Duplicate
With .Find
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = True
.Text = "[0-9.]{1,} " & Split(StrFndB, ",")(i)
End With
Do While .Find.Execute
.End = .Words(.Words.Count).Start - 1
.HighlightColorIndex = wdYellow
.Collapse wdCollapseEnd
Loop
End With
Next
It seems doubtful that you would need to consider capitalization in those cases, though.