Выделение абзаца в выбранном тексте - VBA

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

Здравствуйте, имеется выделенный текст, в этом выделенном тексте несколько абзацев (параграфов) нужно цветом выделить параграфы удовлетворяющие определённому условию. Имеются наработки, только одна проблема, при выделении первого абзаца удовлетворяющего условию, сбрасывается выделение текста и дальнейшие параграфы не просматриваются. Подскажите как это исправить. Заранее всех благодарю за помощь. Вот то, что есть

  
 Dim Wrd As Range
    Dim ibwrd As String
    ibwrd = InputBox("Введите слово: ")
    For Each Wrd In Selection.Words
        If ibwrd = Wrd Then
            Range.Paragraphs.First.Range.HighlightColorIndex = wdYellow
        End If
    Next Wrd

Решение задачи: «Выделение абзаца в выбранном тексте»

textual
                            Листинг программы 
                        

                            If ibwrd = RTrim(Wrd) Then
   Wrd.Paragraphs(1).Range.HighlightColorIndex = wdYellow
End If
                        