Тема: Выделение текста между двух слов
Добрый день.
Данный макрос выделяет область между текстом (и копирует в буфер), но останавливает поиск при первом совпадении. Как я понимаю для выделения во всем документе Нужно добавить Do ... Loop и выход из цикла поиска. Своими силами не получилось.
Sub SelectBetweenText()
Dim MyRange As Range, rStart&, rEnd&
Set MyRange = ActiveDocument.Content
With MyRange
With .Find
.ClearFormatting
.Text = "Слово1"
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
If .Found Then rStart = MyRange.End: rEnd = rStart
End With
End With
Set MyRange = ActiveDocument.Content
With MyRange
With .Find
.Text = "Слово2"
.Execute
If .Found Then rEnd = MyRange.Start
End With
End With
If rEnd > rStart Then
ActiveDocument.Range(rStart, rEnd).Select
Selection.Copy
End If
End Sub