Выделение фрагмента текста в Word, заключенного между заданными словами - VBA

Узнай цену своей работы

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

Добрый день! Помогите, пожалуйста с кодом макроса! Дан файл с текстом:
............. ...Олег.... ............. ...Иван.... .............
Необходимо выделить и скопировать все, что находится после слова "Олег" до слова "Иван".
Как поставить курсор после слова "Олег" я понял, но не понимаю, как выделить текст (или сосчитать количество символов) до слова Иван ((

Решение задачи: «Выделение фрагмента текста в Word, заключенного между заданными словами»

textual
Листинг программы
  1. Sub Макрос1()
  2. Dim r
  3. Set r = ActiveDocument.Range
  4. With r.Find
  5.     .ClearFormatting
  6.     .Text = "Олег*Иван"
  7.     .Forward = True
  8.     .Wrap = wdFindContinue
  9.     .Format = False
  10.     .MatchCase = False
  11.     .MatchWholeWord = False
  12.     .MatchAllWordForms = False
  13.     .MatchSoundsLike = False
  14.     .MatchWildcards = True
  15.     If .Execute Then
  16.         ActiveDocument.Range(r.Start + 4, r.End - 4).Select
  17.         Selection.Copy
  18.     Else
  19.         MsgBox "Текст не найден!", vbExclamation
  20.     End If
  21. End With
  22. End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

8   голосов , оценка 4.375 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы