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

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

Sub RemoveAllBookmarks()

Dim b As Bookmark

For Each b In ActiveDocument.Bookmarks         b.Delete     Next b End Sub

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

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

Sub RemoveUserBookmarks()

Dim b As Bookmark

For Each b In ActiveDocument.Bookmarks         If Left(b.Name,1) <> "_" Then b.Delete     Next b End Sub

_Примечание: _

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

link: / wordribbon-WordTipsMacros [Щелкните здесь, чтобы открыть эту специальную страницу в новой вкладке браузера].

WordTips — ваш источник экономичного обучения работе с Microsoft Word.

(Microsoft Word — самая популярная программа для обработки текстов в мире.) Этот совет (9004) применим к Microsoft Word 2007, 2010, 2013, 2016, 2019 и Word в Office 365. Вы можете найти версию этого совета для пользователей старый интерфейс меню Word здесь:

link: / word-Removing_All_Bookmarks [Удаление всех закладок].