Закладки Word - макросы VBA для добавления, удаления, перехода и изменения

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

Этот макрос 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