Option Explicit

Sub Macro1()
Dim vFindText As Variant
Dim i As Long
Dim oStory As Range
    vFindText = Array("25.222", "25.2666", "25.223")
   
    For Each oStory In ActiveDocument.StoryRanges
        For i = 0 To UBound(vFindText)
            With oStory.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .MatchWildcards = True
                Do While .Execute(findText:=vFindText(i))
                    oStory.HighlightColorIndex = wdTurquoise
                    oStory.Collapse 0
                Loop
            End With
        Next i
        If oStory.StoryType <> wdMainTextStory Then
            While Not (oStory.NextStoryRange Is Nothing)
                Set oStory = oStory.NextStoryRange
                For i = 0 To UBound(vFindText)
                    With oStory.Find
                        .ClearFormatting
                        .Replacement.ClearFormatting
                        .MatchWildcards = True
                        Do While .Execute(findText:=vFindText(i))
                            oStory.HighlightColorIndex = wdTurquoise
                            oStory.Collapse 0
                        Loop
                    End With
                Next i
            Wend
        End If
    Next oStory
lbl_Exit:
    Set oStory = Nothing
    Exit Sub
End Sub