Помощь по заданию с макросами в MS Word

[M_Kris]

Задание такое:
Реализуйте макрос, преобразующий числа в тексте документа от 0 до 9 в слова эквиваленты: ноль, один, два… девять. Числа от десяти и выше (и от -10 и ниже) не преобразовывать.
1. Используя макрорекодер или редактор сценариев VBA. Реализуйте макрос.
2. Максимально упростите код макроса. Снабдите каждую строчку кода комментарием, объясняющим её смысл.
3. Запишите полученный программный код
Никак не могу разобраться с этим, надеюсь на помощь

[Aleksandr H.]

помощь такая

Sub Макрос1()
'
' Макрос1 Макрос
'
'
    Dim i As Integer
    Dim Words(10, 1) As String
    Words(0, 0) = " 0 "
    Words(0, 1) = " ноль "
    Words(1, 0) = " 1 "
    Words(1, 1) = " один "
    Words(2, 0) = " 2 "
    Words(2, 1) = " два "
    '....
    Words(9, 0) = " 9 "
    Words(9, 1) = " девять "
    Selection.WholeStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    For i = 0 To UBound(Words, 1)
    With Selection.Find
        .Text = Words(i, 0)
        .Replacement.Text = Words(i, 1)
        .Forward = True
        .MatchWholeWord = False
    End With
    Application.DisplayAlerts = False
    Selection.Find.Execute Replace:=wdReplaceAll
    Application.DisplayAlerts = True
    Next i
End Sub

[M_Kris]

Спасибо огромное!