Как нумеровать строки в Word VBA

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

(MS Office 2003).
Народ, не подскажите как в "Word"е программно (VBA) пронумеровать активную строку в 2 уровня?
Т.е. там где курсор мигает (как бы активная строчка) мне необходимо пронумеровать как "1.1.", "1.2." и вообще не обязательно при этом начинать с единички. Некоторые "активные строчки" у меня должны быть пронумерованы как "2.1." или скажем "5.5.".
Несколько раз попробовал запустить макрос и прочесть что пишет VBA. Но каждый раз почему-то получается одноуровневая нумерация типа так "1.", "2." и т.д.

Решение задачи: «Как нумеровать строки в Word VBA»

textual
                            Листинг программы 
                        
                            Rng.Style = ActiveDocument.Styles(<font color="teal">"Заголовок 2"</font>)