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

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

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

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

Сама разобралась.

Sub Макрос()
   
    Dim Список As List
   
    For Each Список In ActiveDocument.Lists
    Next Список

End Sub