Автоматическое создание структуры документа

[cmygla]

Здравствуйте форумчане!!
Как говорится, прошу помощи. Бьюсь уже 2 дня над проблемой. В документе присутствует текст, как бы "разделенный на подпункты". т.е. есть параграф , начинающийся в виде "4 название параграфа", есть в виде "4.1 название параграфа" ну и.т.п . Естественно, между ними может встречаться текст с обычным содержимым. Так вот, хотелось бы , чтобы параграф "4 название параграфа" - это был элемент первого уровня документа, "4.1 название параграфа" - второго уровня ну и т.п.
Ковыряюсь с методом Find и подстановочными знаками. Вроде как, поняла что ищет он по словам, а в качестве разделителей использует либо пробел, либо точку. Так вот как обойти это разделение в поиске при задании маски не соображу
Помогите, подскажите..
Вот что сейчас пока у меня имеется:

Sub Создание_сруктуры()
'
' Создание_сруктуры Макрос
'

  Application.ScreenUpdating = False
  Set myParagraphs = ActiveDocument.Paragraphs
  For x = 1 To myParagraphs.Count
       myParagraphs(x).Range.Select
       
      ' If Selection.Font.Bold Then
        With Selection.Find
            .Forward = True
            .ClearFormatting
            .MatchWholeWord = False
            .MatchCase = False
            .MatchWildcards = True
            .Execute FindText:="<[0-9]@ "
            If .Found = True Then
                 myParagraphs(x).OutlineLevel = wdOutlineLevel1
            End If
            .Execute FindText:="<[0-9]@.[0-9]@ "
            If .Found = True Then
                 myParagraphs(x).OutlineLevel = wdOutlineLevel2
            End If
            .Execute FindText:="<[0-9]@.[0-9]@.[0-9]@ "
           If .Found = True Then
                 myParagraphs(x).OutlineLevel = wdOutlineLevel3
            End If
            
        End With
       'End If
  Next x
 Application.ScreenUpdating = True
End Sub

[cmygla]

тему можно удалить, проблему решила