Удаление всех закладок

Некоторым очень нравятся закладки. Они действительно пригодятся, но если кто-то еще установил закладки в документе, они могут вам не понадобиться, как только вы получите документ от них. Если установлено много-много закладок (помните, мы говорим о людях, которые действительно любят закладки), удаление их всех по одной может быть довольно утомительным занятием.

Если вы окажетесь в такой ситуации, вам нужно иметь под рукой следующий макрос. Он проверяет активный документ (тот, который вы просматриваете) и удаляет все закладки в нем.

 Sub RemoveAllBookmarks () Dim objBookmark как закладку для каждой objBookmark в ActiveDocument.Bookmarks objBookmark.Delete NextEnd Sub  

Обратите внимание, что при этом просто удаляется закладка, а не текст, на который она ссылается.

Оцените статью
Frestage.ru
Добавить комментарий