В статье «Урок 79. Смотри таблицу» я рассказала, как установить закладку в тексте документа:
Закладка в Word играет ту же роль, что и в обычной книге: это пометка в тексте, позволяющая легко найти нужный фрагмент снова. Вы можете создать в документе сколько угодно закладок и присвоить каждой из них уникальное имя, чтобы легко их опознавать. |
Хорошо бы, чтобы в документе были бы закладки, лично нами назначенные и хорошо нам знакомые.
Но будьте готовы к тому, что:
- когда вы скачиваете документ из системы «КонсультантПлюс»
- когда вы распознаете документ, а потом передаете его в Word
то, закладки в документе будут в немалом количестве – 100 и больше.
Поэтому встанет вопрос: как организовать удаление всех закладок?
По окончании этого урока вы сможете:
- Использовать закладку для навигации по документу
- Написать макрос «Удаление всех закладок»
1. Навигация по документу при помощи закладок
Шаг 1. Лента Главная → группа команд Редактирование → команда Найти → команда Перейти из выпадающего меню:
Появляется рабочее окно «Найти и заменить»
Шаг 2. Кнопка выпадающего меню поля Найти имя закладки → выбор нужного имени в выпадающем меню:
Обратите внимание на это окно. В правой части находится поле «Объект перехода». Если вы пройдетесь по полосе прокрутки, то список объектов перехода будет таким:
- Страница
- Раздел
- Строка
- Закладка
- Примечание
- Сноска
- Концевая сноска
- Поле
- Таблица
- Рисунок
- Уравнение
- Объект
- Заголовок
С маленькими документами вы обойдётесь без переходов по этим объектам. Но с документом в 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. В диалоговом окне «Макрос» введите имя макроса → только тогда команда «Создать будет активна и позволит вам создать новый макрос:
Имя для макроса должно быть уникальным. К имени макроса предъявляются два требования:
- Имя должно начинаться с буквы!
- Имя не должно содержать пробелов!
После нажатия ЛМ команды «Создать» появляется окно «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. Макрос для таблицы» я рассказала, как поместить кнопку запуска макроса на Панель быстрого доступа.
Макрос «Удаление всех закладок» в документе будет доступен вам при работе любым документом.
Теперь вы сможете:
- Использовать закладку для навигации по документу
- Написать макрос «Удаление всех закладок»
Комментировать
Для отправки комментария вам необходимо авторизоваться.