Word закладка для макроса

Я уже писал заметку о создании закладок в документе.

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

Однако стандартный метод создания закладки не слишком быстр и удобен. Здесь на помощь приходят макросы.

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

Когда необходимо в процессе чтения или редактирования документа отметить для себя какой-то фрагмент текста, вы нажимаете кнопку на панели инструментов или назначенное сочетание клавиш и в текст вставляется закладка. Чтобы вернуться позже к этому фрагменту достаточно нажать другое сочетание клавиш.

В этой заметке я опишу процесс создания макросов своими словами с опорой на источник.

1. Выделите слово или фразу в тексте, к которым вы хотите позже вернуться.
2. В меню Сервис (Tools) перейдите на команду Макрос (Macro) и из открывшегося дополнительного списка выберите команду Начать запись (Record New Macro). В появившемся окне в поле шмя (Macro name) введите имя макроса (лучше латинскими буквами), например, Marker. Остальные поля можете оставить без изменения. Только проследите, чтобы в поле Макрос доступен для (Store macro in) была выбрана опция Всех документов Normal.dot.
3. В группе Назначить макрос (Assign macro to) нажмите кнопку с изображением клавиатуры, чтобы назначить вашему макросу определенное сочетание клавиш, по которому он будет вызываться.
4. В окне «Настройка клавиатуры» задайте сочетание клавиш для макроса, пусть это будет как в книге: ALT + A, и нажмите кнопку Назначить (Assign). Закройте окно.
5. На экране появится панелька с управляющими кнопками для записи макроса:

   

6. В меню Вставка (Insert) выберите команду Закладка (Bookmark). Откроется диалоговое окно.
7. В поле Имя закладки (Bookmark name) введите какое-нибудь подходящее имя для вашей закладки (имя закладки не может содержать пробелы или начинаться с цифры). Пусть снова будет — Marker.
8. Нажмите кнопку Добавить (Add). Окно закроется.
9. На панели с управляющими кнопками нажмите кнопку с квадратиком, чтобы остановить запись макроса.
10. Макрос создания закладки создан.

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

1. В меню Сервис (Tools) перейдите на команду Макрос (Macro) и из открывшегося дополнительного списка выберите команду Начать запись (Record New Macro). В появившемся окне в поле Имя (Macro name) введите имя макроса (лучше латинскими буквами), например, GoToMarker. Остальные поля можете оставить без изменения. Только проследите, чтобы в поле Макрос доступен для (Store macro in) была выбрана опция Всех документов Normal.dot.
2. В группе Назначить макрос (Assign macro to) нажмите кнопку с изображением клавиатуры, чтобы назначить вашему макросу определенное сочетание клавиш, по которому он будет вызываться.
3. В окне «Настройка клавиатуры» задайте сочетание клавиш для макроса, пусть это будет как в книге: ALT + Q, и нажмите кнопку Назначить (Assign). Закройте окно.
4. На экране появится панелька с управляющими кнопками для записи макроса.
5. В меню Вставка (Insert) выберите команду Закладка (Bookmark). Откроется диалоговое окно.
6. В большом поле под полем Имя закладки (Bookmark name) выберите имя вашей закладки.
7. Нажмите кнопку Перейти (Go To), а затем кнопку Закрыть (Close).
8. На панели с управляющими кнопками нажмите кнопку с квадратиком, чтобы остановить запись макроса.

Таким образом, мы создали два макроса, позволяющие быстро работать с закладками: по сочетанию клавиш ALT + A вы создаете закладку, а сочетанием ALT + Q вы выбираете и перемещаетесь к вашей закладке в тексте документа.

Добавить закладку

Этот макрос Word добавит закладку:

Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub

Удалить закладку

Этот макрос VBA удалит закладку:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'нам нужно проверить, существует ли закладка с именем "easyexcel_net_01" в активном документе ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Удалить End If End Sub

Перейти к закладке

Этот простой макрос перейдет к закладке:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'нам нужно проверить, существует ли закладка с именем "easyexcel_net_01" в активном выборе документа. GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub

Изменить закладку

Этот макрос изменяет содержимое закладки:

Sub ModifyBookmarkContent () 'изменить содержимое закладки' более сложно, потому что изменение содержимого диапазона закладок приведет к удалению закладки Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Затем 'нам нужно проверить, существует ли закладка с именем "easyexcel_net_01" в активной doc 'Определите текущий диапазон закладок и вставьте текст Set oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Range oRangeBKM.Text = "easyexcel.net"' Снова сделайте закладку ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Это функция изменения закладки:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) «пригодная для использования» процедура для добавления в Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Затем «нам нужно проверить, существует ли закладка с именем« easyexcel_net_01 »в активном документе» Идентифицировать текущий диапазон закладок и вставьте текст Set oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Сделайте снова закладку ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Вы можете вызвать функцию, добавив имя закладки и новый текст в качестве аргументов:

Sub CallBookmarkFunction () Вызов UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") End Sub

Вы поможете развитию сайта, поделившись страницей с друзьями

I am trying to create a Word document with a very simple word macro. The macro searches for a bookmark that I have placed in the text and then adds a date, 2 weeks into the future, at that location.

But when I create a new document from the template I keep getting bookmark not found. I have been through it loads of times and sometimes the bookmark is there, sometimes its there but not allowing you to click «Go to».

How can I get it to work? I have added a little piece of code to the Document_New() event but that keeps reporting Bookmark not found.

I have the document in a rar-file since my webserver can’t handle .dotm extensions.
Document

How can I make it so that when a new document is produced from this template, the new document has the date, 2 weeks ahead, placed between the 2 bold sections?

Sub Two_Weeks_Ahead()
''# Two_Weeks_Ahead Makro
    Selection.GoTo What:=wdGoToBookmark, Name:="TwoWeeks"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With

    Dim dt As Date
    dt = DateAdd("d", 14, DateTime.Now)

    Selection.TypeText Text:=Format(dt, "yyyy-MM-dd")
End Sub

Private Sub Document_New()
    Selection.GoTo What:=wdGoToBookmark, Name:="TwoWeeks"
    With ActiveDocument.Bookmarks
        .DefaultSorting = wdSortByName
        .ShowHidden = False
    End With

    Dim dt As Date
    dt = DateAdd("d", 14, DateTime.Now)

    Selection.TypeText Text:=Format(dt, "yyyy-MM-dd")
End Sub

В статье «Урок 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 мы его удалили. И еще один вывод:

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

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

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

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

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