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

Автор Посетитель, 11 октября 2021, 19:06

Посетитель

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

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

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

Sub Макрос()

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

End Sub