Как выделить текст от начала документа до искомого фрагмента текста

Анатолий спрашивает:

Вот образец рабочего макроса. При запуске макроса происходит поиск в документе определенного текста (в коде это строка "Искомый текст") и выделяет весь текст от найденного фрагмента до начала документа. Сам искомый фрагмент в выделение не входит.

Sub strSelect()
'Выделение текста от найденного фрагмента до начала документа
'ищет первое вхождение искомой строки
Dim switchFound As Boolean ' найдено или не найдено
Selection.Find.Execute _
   findText:="Искомый текст", _
   Forward:=True, _
   Wrap:=wdFindContinue
switchFound = Selection.Find.Found
If switchFound = False Then
   MsgBox "Не найдено"
Else
   Selection.Collapse wdCollapseStart
   Selection.StartOf Unit:=wdStory, Extend:=wdExtend
End If
End Sub