Word VBA Макросы: Поиск значения с отступом на 1 позицию вниз с занесением всей активной строки в переменную.

[Game]

Необходимо найти текст и отступить вниз на 1 позицию и там где окажется курсор весь абзац поместить в переменную.

Пример:
Сегодня хорошая погода.
Я иду по проспекту.

Ищем слово "хорошая", опускаемся вниз на 1 строку и заносим "Я иду по проспекту." в переменную.

[Администратор]

Если слово "хорошая" будет в абзаце, в котором две строки и слово "хорошая" находится в первой строке, то нужно извлечь текущий абзац или нужно извлечь следующий абзац?

[Game]

следующий абзац

[Администратор]

Sub Макрос()

    Dim var

    With ActiveDocument.Range.Find
        .Text = "хорошая"
        If .Execute = True Then
            var = .Parent.Paragraphs(1).Next.Range.Text
            ' Убираем концевой символ "конец абзаца".
            var = Left(var, Len(var) - 1)
        End If
    End With
   
End Sub

[Game]

Спасибо, всё работает.