Простейший макрос в Word. Помогите пожалуйста! - VB

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

Уважаемые, если кто знает Word и у него есть свободные 10 минут, напишите пожалуйста такой макрос:
Есть документ ворд со словами на каждой строчке, например:
осень
апрель
стол
вом
ток
дыня
нег
шыль
Как кидите некоторые слова не правильные. Надо чтобы перед неправильными словами программа ставила 0, т.е.:
осень
апрель
стол
0вом
ток
дыня
0нег
0шыль
Вроде это можно сделать через GetSpellDesicion. Там свойство count кажется равно количеству вариантов правильного написания слова. Т.е. таких вариантов >0 то надо поставить 0.
Сдалайте пожалуйста, очень прошу! Работы на 5 минут, а уже 2 месяца не могу написать, т.к. слишком долго изучать Word(я в Excel программирую пока что). Задарее Оргомное спасибо!!!

Решение задачи: «Простейший макрос в Word. Помогите пожалуйста!»

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

                            <font color="blue">Dim</font> rng <font color="blue">As</font> Word.Range
    
    <font color="blue">For</font> <font color="blue">Each</font> rng <font color="blue">In</font> ActiveDocument.Words
        <font color="blue">With</font> rng
            <font color="blue">If</font> .GetSpellingSuggestions.Count <> <font color="darkblue"><b>0</b></font> <font color="blue">Then</font>
                .StartOf Unit:=wdParagraph, Extend:=wdMove
                .Text = <font color="teal">"0"</font>
            <font color="blue">End</font> <font color="blue">If</font>
        <font color="blue">End</font> <font color="blue">With</font>
    <font color="blue">Next</font>
                        