Необходимо найти текст и отступить вниз на 1 позицию и там где окажется курсор весь абзац поместить в переменную.
Пример:
Сегодня хорошая погода.
Я иду по проспекту.
Ищем слово "хорошая", опускаемся вниз на 1 строку и заносим "Я иду по проспекту." в переменную.
Если слово "хорошая" будет в абзаце, в котором две строки и слово "хорошая" находится в первой строке, то нужно извлечь текущий абзац или нужно извлечь следующий абзац?
следующий абзац
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
Спасибо, всё работает.