Word Макросы. Удалить все закладки

Автор Посетитель, 06 сентября 2016, 13:39

Посетитель

Добрый день!
Подскажите пожалуйста операцию, которая удалит сразу все закладки в документе, причем как в основном тексте, так и в сносках.

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

Такой макрос удаляет все закладки в файле: и в самом тексте, и в других местах - коллекция "Bookmarks" содержит все закладки.

Sub Макрос()
   
    Dim i As Long
   
    For i = ActiveDocument.Bookmarks.Count To 1 Step -1
        ActiveDocument.Bookmarks(i).Delete
    Next i
   
End Sub

Посетитель

Ура! Большое спасибо!
Все получилось!