Как вызвать абзац по его стилю?

[radha]

Здравствуйте! Я новичок, и вопрос, как я подозреваю, элементарный.

Есть документ, в котором имеются заголовки с определенными наименованием ArticleName, между которыми идет обычный текст. Вопрос: как выделить с помощью команд VBA абзац ArticleName и текст после него вплоть до следующего аналогичного заголовка (не включая его)?

Пробую разными методами, чувствую, что близка, но чего-то не хватает в знаниях. Надеюсь на снисходительность к новичку и спасибо заранее:-)

[Казанский]

Вот так для первого куска, методом перебора

Sub bb()
Dim a, b
With ActiveDocument
    For a = 1 To .Paragraphs.Count
        If .Paragraphs(a).Style = "ArticleName" Then
            For b = a + 1 To .Paragraphs.Count
                If .Paragraphs(b).Style = "ArticleName" Then Exit For
            Next
            .Range(.Paragraphs(a).Range.Start, .Paragraphs(b - 1).Range.End).Select
            Exit Sub
        End If
    Next
End With
End Sub

[radha]

Спасибо огромное, Вы очень мне помогли)