View Single Post
 
Old 08-08-2022, 07:01 AM
macropod's Avatar
macropod macropod is offline Windows 10 Office 2016
Administrator
 
Join Date: Dec 2010
Location: Canberra, Australia
Posts: 22,467
macropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond reputemacropod has a reputation beyond repute
Default

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.
__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]
Reply With Quote