Word VBA Макросы. Как пройтись по всем разделам документа?

[Посетитель]

Как пройтись по всем разделам активного документа?

[Администратор]

Sub Макрос()

    Dim Раздел As Section
   
    For Each Раздел In ActiveDocument.Sections
    Next Раздел

End Sub

[Посетитель]

спасибо