Sub check()
    On Error Resume Next
    If Selection.Cells.Count > 1 Then
        Set Rng1 = Selection.SpecialCells(xlCellTypeConstants)
    Else
        Set Rng1 = Selection
    End If
    
    k = [m].End(xlDown).Row
    
    Dim Rng2()
    ReDim Rng2(1 To k)
    For i = 1 To k
        Rng2(i) = [m].Offset(i - 1, 0)
    Next i
    
    For Each cell In Rng1
        If (Not IsEmpty(cell)) And (Not IsError(cell)) Then
            For i = 1 To Len(cell)
                For j = 1 To k
                    If Mid(cell, i, Len(Rng2(j))) = Rng2(j) Then
                        With cell.Characters(Start:=i, Length:=Len(Rng2(j))).Font
                            .ColorIndex = 3
                            .Size = 14
                            .Bold = True
                        End With
                        Exit For
                    End If
                Next j
            Next i
        End If
    Next cell
End Sub

Sub ertert()
Dim bibl, b, poisk As Range, r As Range
Dim i As Long, l As Long

bibl = Array("более", "менее", "не более", "не менее", "наиболее", "наименее", "меньше", "больше", "не меньше", "не больше", _
             "ниже", "выше", "не ниже", "не выше", "не хуже", "не лучше", "должен быть", "должна быть", "должно быть", _
             "должны быть", "не должен быть", "не должна быть", "не должно быть", "не должны быть", "должен иметь", "должна иметь", _
             "должно иметь", "должны иметь", "не должен иметь", "не должна иметь", "не должно иметь", "не должны иметь", "должен равняться", _
             "должна равняться", "должно равняться", "должны равняться", "не должен равняться", "не должна равняться", _
             "не должно равняться", "не должны равняться", "должен обеспечиваться", "должна обеспечиваться", _
             "должно обеспечиваться", "должны обеспечиваться", "не должен обеспечиваться", "не должна обеспечиваться", _
             "не должно обеспечиваться", "не должны обеспечиваться", "возможно", "вероятно", "примерно")
Set poisk = Range([b3], Cells(Rows.Count, 2).End(xlUp))
poisk.Font.ColorIndex = xlAutomatic

With CreateObject("VBScript.RegExp")
    .Global = True: .IgnoreCase = True
    For Each b In bibl
        .Pattern = b: l = Len(b)
        For Each r In poisk.Cells
            If .Test(r) Then
                With .Execute(r)
                    For i = 0 To .Count - 1
                        r.Characters(.Item(i).FirstIndex + 1, l + 1).Font.Color = vbRed
                    Next
                End With
            End If
        Next r
    Next b
End With
End Sub