Выделение текста до найденного слова (в Word`e) - VB

Формулировка задачи:

Не соображу, как это сделать. Мне нужно выделить кусок текста от одного известного слова "Параграф 1", например, до другого - "Параграф 2". "Параграф 1" легко находится штатным вордовским поиском, а как дальше? Это надо цикл делать что ли? Или If then? Или Case?
Может кто-то делал похожий макрос? Хотя бы фрагмент макроса с таким поиском покажите. Пожалуйста!

Решение задачи: «Выделение текста до найденного слова (в Word`e)»

textual
                            Листинг программы 
                        
                            FindText:=<font color="teal">"<("</font> & strWord1 & <font color="teal">")>*<("</font> & strWord2 & <font color="teal">")>"</font>, _

    ...

    <font color="blue">Set</font> rngTemp = ActiveDocument.Range( _
      rng.Start + Len(strWord1), _
      rng.<font color="blue">End</font> - Len(strWord2))