Выделение фрагмента текста в Word, заключенного между заданными словами - VBA
Формулировка задачи:
Добрый день!
Помогите, пожалуйста с кодом макроса!
Дан файл с текстом:
Необходимо выделить и скопировать все, что находится после слова "Олег" до слова "Иван".
.............
...Олег....
.............
...Иван....
.............
Как поставить курсор после слова "Олег" я понял, но не понимаю, как выделить текст (или сосчитать количество символов) до слова Иван ((
Решение задачи: «Выделение фрагмента текста в Word, заключенного между заданными словами»
textual
Листинг программы
- Sub Макрос1()
- Dim r
- Set r = ActiveDocument.Range
- With r.Find
- .ClearFormatting
- .Text = "Олег*Иван"
- .Forward = True
- .Wrap = wdFindContinue
- .Format = False
- .MatchCase = False
- .MatchWholeWord = False
- .MatchAllWordForms = False
- .MatchSoundsLike = False
- .MatchWildcards = True
- If .Execute Then
- ActiveDocument.Range(r.Start + 4, r.End - 4).Select
- Selection.Copy
- Else
- MsgBox "Текст не найден!", vbExclamation
- End If
- End With
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д