Форум по VBA, Excel и Word

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

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

Sub Макрос()

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

End Sub

спасибо