'пример поиска в обратном направлении в документе слова "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

Dim Строка_таблицы_Word As String
'здесь при помощи Trim$ откидываем лишние пробелы в начале и в конце строки или ячейки таблицы Word
Строка_таблицы_Word = Trim$(ActiveDocument.Tables( 1 ).Rows( 1 ).Cells( 1 ).Range)

Dim reg As Object
Set reg = CreateObject("vbscript.regexp")
'искать по всему тексту, по умолчанию False - будет найдено только первое совпадение
reg.Global = True
'Chr$(13) это абзац, заменяем его на пробел
reg.Pattern = Chr$( 13 )
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, " ")
'+ означает, что заменяем два, три, четыре и более пробелов подряд на один пробел
reg.Pattern = " +"
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, " ")
'Chr$(7) это концевая сноска таблицы Word
reg.Pattern = Chr$( 7 )
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, "")
'заменяем пробел, следом идущую запятую на запятую, то есть удаляем пробел перед запятой
reg.Pattern = " ,"
Строка_таблицы_Word = reg.Replace(Строка_таблицы_Word, ",")
'установка объекта в значение Nothing требуется для освобождения памяти, которая была выделена для создания этого объекта
Set reg = Nothing