Выделение фрагмента текста в 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
                        