Регулярка. Выбрать все слова кроме определённых

testString = "Попытка= один пробую= все выбрать все многие= слова которые= не входят= от в кучу= определенных"

Pattern = "= [А-Яа-я]{2,} "

(?:=\s)(\w+)

Option Explicit
Option Compare Text 'не различать регистр при сравнении текстов
 
Sub Ke()
Const testString = "Попытка= один пробую= Все выбрать все многие= слова которые= НЕ входят= от в кучу= определенных"
Dim re As Object, x, s$
  Set re = CreateObject("vbscript.regexp")
  re.Pattern = "= ([а-я]{2,})( |$)"
  re.Global = True
  re.ignorecase = True
  For Each x In re.Execute(testString)
    s = x.submatches(0)
    Select Case s
    Case "не", "от" 'ничего не делать
    Case Else
      Debug.Print s
    End Select
  Next
End Sub

Function ПравкаУдаренийРУ(Строка)
    Dim myRegExp As New RegExp
    Dim aMatch As Match
    Dim colMatches As MatchCollection
    myRegExp.MultiLine = True
    myRegExp.Global = True
    myRegExp.IgnoreCase = False
    myRegExp.Pattern = "(=([.|,|:|;|!|\?|»|”])( |$))|(= ([А-Яа-я=]{1,})([.|,|:|;|!|\?]{0,1})( |$))"
    
    Строка = Replace(Строка, ChrW(769), "=")
    
    Set colMatches = myRegExp.Execute(Строка) ' получаем коллекцию совпадений с образцом
    
    For Each aMatch In colMatches ' проходим по всей коллекции
        a = aMatch.FirstIndex ' порядковый номер первого символа найденного образца
        s = aMatch.SubMatches(4) ' То что в скобках
        'b = aMatch.Length ' кол-во символов в найденном образце
        'c = aMatch.Value ' полный образец
        Select Case s
        Case "же", "бо", "ли", "ми", "ти", "си", "мя", "тя", "Тя", "ся", "ны ", "вы" 'Пропускает
        Case Else
            Mid(Строка, a + 1, 1) = "+" ' Заменяет
        End Select
    Next aMatch
    
    ПравкаУдаренийРУ = Строка
End Function