Поиск и форматирование чисел

Добрый день, форумчане!
Помогите с задачей. Необходимо искать на странице числа(номера телефонов с кодом страны и без), которые содержат "пробел", "/", "\", "+" и привести их к форме " 987 34735849 ", то есть к числу, у которого 8 чисел с конца отделено пробелом от остальных чисел, и спереди и сзади по пробелу.

Куча папок с документами ворд и телефонами, привожу к возможности поиска по ним номеров. Записал макрос, но не могу отсчитать 8 чисел и вставить пробел, а также пробелы по краям.

Sub Telefon()
'
' Telefon Макрос
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = "-"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = "/"
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    With Selection.Find
        .Text = " "
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub