Word VBA Макросы. Как пройтись по всем абзацам?

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

Как с помощью макроса пройтись по всем абзацам в документе?

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

Этот код проходит по всем абзацам, которые находятся в основном тексте. В колонтитулах, сносках и возможно ещё где-то (с ходу не могу вспомнить все места) этот код не проходит по абзацам.

Sub Макрос()

    Dim Абзац As Paragraph
   
    For Each Абзац In ActiveDocument.Paragraphs
    Next Абзац

End Sub

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

спасибо