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

В статье «Урок 79. Смотри таблицу» я рассказала, как установить закладку в тексте документа:

Закладка в Word играет ту же роль, что и в обычной книге: это пометка в тексте, позволяющая легко найти нужный фрагмент снова. Вы можете создать в документе сколько угодно закладок и присвоить каждой из них уникальное имя, чтобы легко их опознавать.

Хорошо бы, чтобы в документе были бы закладки, лично нами назначенные и хорошо нам знакомые.

Но будьте готовы к тому, что:

• когда вы скачиваете документ из системы «КонсультантПлюс»
• когда вы распознаете документ, а потом передаете его в Word

то, закладки в документе будут в немалом количестве – 100 и больше.

Поэтому встанет вопрос: как организовать удаление всех закладок?

По окончании этого урока вы сможете:

1. Использовать закладку для навигации по документу
2. Написать макрос «Удаление всех закладок»

1. Навигация по документу при помощи закладок

Шаг 1. Лента Главная → группа команд Редактирование → команда Найти → команда Перейти из выпадающего меню:

Появляется рабочее окно «Найти и заменить»

Шаг 2. Кнопка выпадающего меню поля Найти имя закладки → выбор нужного имени в выпадающем меню:

Обратите внимание на это окно. В правой части находится поле «Объект перехода». Если вы пройдетесь по полосе прокрутки, то список объектов перехода будет таким:

1. Страница
2. Раздел
3. Строка
4. Закладка
5. Примечание
6. Сноска
7. Концевая сноска
8. Поле
9. Таблица
10. Рисунок
11. Уравнение
12. Объект
13. Заголовок

С маленькими документами вы обойдётесь без переходов по этим объектам. Но с документом в 50 страниц и выше команда «Перейти» помогает мне даже очень. Например: мне надо убедиться, что я не пропустила ни одной таблицы для форматирования. Или: все ли рисунки стоят на своих местах?

2. Макрос «Удаление всех закладок» в документе

А теперь рассмотрим ситуацию: документ с большим количеством закладок (я работаю со своим документом).

Шаг 1. Лента Вставка → группа команд Ссылки → команда Закладка:

Теперь вы можете поочередно выбирать имя закладки в списке и нажимать ЛМ команду «Удалить». И так 250 раз. По моим прикидкам именно такое количество закладок есть в этом документе.

Скачайте документ тут и откройте его. Посмотрите, сколько там закладок:

Вроде и немного, но удалять поодиночке все равно надоест. Так что приступим к созданию макроса «Удаление всех закладах» в документе.

Скопируйте целиком текст в рамке:

Sub delAllbookmarks()  Dim oBkm As Bookmark  For Each oBkm In ActiveDocument.Range.Bookmarks     oBkm.Delete  Next End Sub

В статье «Урок 60. Макрос для таблицы» я показала, как извлечь ленту «Разработчик». Так как я много работаю с полями для того, чтобы делать автоматизированные шаблоны (статья «Урок 89. Шаблон договора»), то эта лента у меня всегда под рукой.

Шаг 2. Лента Разработчик → группа команд Код → команда Макросы:

Шаг 3. В диалоговом окне «Макрос» введите имя макроса → только тогда команда «Создать будет активна и позволит вам создать новый макрос:

Имя для макроса должно быть уникальным. К имени макроса предъявляются два требования:

1. Имя должно начинаться с буквы!
2. Имя не должно содержать пробелов!

После нажатия ЛМ команды «Создать» появляется окно «Microsoft Visual Basic for Applications»:

Сразу хочу признаться, что я не специалист в Visual Basic, могу написать только простые макросы. Но даже это заметно облегчает мою рабочую жизнь.

Шаг 4. Удалите в поле «Normal — NewMacros (Code)» все содержимое кнопкой Delete с клавиатуры.

Шаг 5. Вставьте содержимое буфера обмена в поле «Normal — NewMacros (Code)» нажатием сочетания клавиш Ctrl+V:

Закройте окно «Microsoft Visual Basic for Applications» нажатием ЛМ по крестику в правом верхнем углу.

Шаг 6. Теперь выполняем макрос (лента Разработчик → группа команд Код → команда Макросы → команда Выполнить):

Обратите внимание, что в поле «Имя» нет имени, которое мы вводили. Объяснение простое: на шаге 4 мы его удалили. И еще один вывод:

Sub delAllbookmarks()	Имя макроса
Dim oBkm As Bookmark For Each oBkm In ActiveDocument.Range.Bookmarks    oBkm.Delete Next
End Sub	Окончание работы макроса

Оставьте заметочку в памяти – эта информация еще пригодиться

В статье «Урок 60. Макрос для таблицы» я рассказала, как поместить кнопку запуска макроса на Панель быстрого доступа.

Макрос «Удаление всех закладок» в документе будет доступен вам при работе любым документом.

Теперь вы сможете:

1. Использовать закладку для навигации по документу
2. Написать макрос «Удаление всех закладок»