Используя Find получить найденный текст - VBA

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

Доброго времен суток. Есть текст в ворде. Там вставки Игрок-1, Игрок-2, Игрок-3 и т.д. Задача менять слова Игрок-ХХ на разные имена. Использую find с регулярными выражениями:

      With ActiveDocument.Content.Find
                .MatchWildcards = True
                .Text = "Игрок-[0-9]"
                .Execute
            End With

Как получить найденный текст, чтобы потом уже менять его на конкретное значение?

Решение задачи: «Используя Find получить найденный текст»

textual
                            Листинг программы 
                        

                            Sub bb1()
Dim r As Range
  Set r = ActiveDocument.Content
  With r.Find
    .MatchWildcards = True
    .Text = "Игрок-[0-9]{1;}"
    While .Execute  'фрагмент найден, r ссылается на него
      MsgBox Split(r.Text, "-")(1)
    Wend
  End With
End Sub
                        