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

Word => Макросы в Word => Тема начата: Посетитель от 06 сентября 2016, 13:39

Название: Word Макросы. Удалить все закладки
Отправлено: Посетитель от 06 сентября 2016, 13:39
Добрый день!
Подскажите пожалуйста операцию, которая удалит сразу все закладки в документе, причем как в основном тексте, так и в сносках.
Название: Re: Word Макросы. Удалить все закладки
Отправлено: Администратор от 06 сентября 2016, 17:45
Такой макрос удаляет все закладки в файле: и в самом тексте, и в других местах - коллекция "Bookmarks" содержит все закладки.

Sub Макрос()
   
    Dim i As Long
   
    For i = ActiveDocument.Bookmarks.Count To 1 Step -1
        ActiveDocument.Bookmarks(i).Delete
    Next i
   
End Sub
Название: Re: Word Макросы. Удалить все закладки
Отправлено: Посетитель от 06 сентября 2016, 21:19
Ура! Большое спасибо!
Все получилось!