'пример поиска в обратном направлении в документе слова "Microsoft"
'если слово найдено, оно выделяется
'Selection     Collapse     Direction
'Выбор         Свернуть     Направление
Selection.Collapse Direction:=wdCollapseStart
With Selection.Find
    'Forward - Переслать
    .Forward = True 'False
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    .Execute FindText:="Microsoft"
End With

Dim reg As Object
Set reg = CreateObject("VBScript.RegExp")
'искать по всему тексту, если False (по-умолчанию) - будет найдено только первое совпадение
reg.Global = True
'текст, который ищем
'?????????????????????
reg.Pattern = "Сут "
'учитывать регистр символов
reg.IgnoreCase = False
TempStr = ActiveDocument.Range
MsgBox$ TempStr

Sub Макрос1()
'Tools - References... - Microsoft VBScript - Regular Expressions 5.5
Dim РегВыражения As New VBScript_RegExp_55.RegExp
Dim Текст As String
Dim Найденное As VBScript_RegExp_55.MatchCollection
Текст = ActiveDocument.Range
With РегВыражения
    'искать по всему тексту, если False (по-умолчанию) - будет найдено только первое совпадение
    .Global = True
    'текст, который ищем
    .Pattern = "Сут "
    'учитывать регистр символов
    .IgnoreCase = False
    Set Найденное = .Execute(sourceString:=Текст)
End With
'Вот так можно определить первый с конца найденный элемент.
'(-1, т.к. первый элемент коллекции нумеруется с нуля).
Debug.Print Найденное(Найденное.Count -  1 )
End Sub