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

Оффлайн Rengame113

  • Посетитель форума
  • Сообщений: 84
Необходимо найти текст и отступить вниз на 1 позицию и там где окажется курсор весь абзац поместить в переменную.

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

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

Оффлайн Администратор

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

Оффлайн Rengame113

  • Посетитель форума
  • Сообщений: 84

Оффлайн Администратор

  • Administrator
  • Сообщений: 1710
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

Оффлайн Rengame113

  • Посетитель форума
  • Сообщений: 84