Додати закладку
Цей макрос Word додасть закладку:
Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Видалити закладку
Цей макрос VBA видалить закладку:
Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Тоді "нам потрібно перевірити, чи закладка з назвою" easyexcel_net_01 "існує в активному документі ActiveDocument.Bookmarks (Index: =" easyexcel_net_01 "). Видалити кінець, якщо закінчити суб
Перейдіть до закладок
Цей простий макрос перейде до закладки:
Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Тоді "нам потрібно перевірити, чи закладка з назвою" easyexcel_net_01 "існує в активному виборі документа.
Змінити закладку
Цей макрос змінить вміст закладки:
Sub ModifyBookmarkContent () "змінити вміст закладок" ускладнюється, оскільки зміна вмісту діапазону закладок видалить закладку Dim oRangeBKM як діапазон, якщо ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Тоді "нам потрібно перевірити, чи закладка з назвою" easyexcel_net_01 "існує в активному doc 'Визначте поточний діапазон закладок і вставте текст Установіть oRangeBKM = ActiveDocument.Закладки ("easyexcel_net_01"). Діапазон oRangeBKM.Text = "easyexcel.net"' Знову зробіть закладку ActiveDocument.Bookmarks.Add "easyexcel_net_01", EndRamgeB
Це функція зміни закладок:
Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "" придатна "процедура додавання в Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Тоді" нам потрібно перевірити, чи існує закладка з іменем "easyexcel_net_01" Identify поточний діапазон закладок і вставити текст Встановити oRangeBKM = ActiveDocument.Закладки (strBookMarkName). Діапазон oRangeBKM.Text = strNewText 'Знову зробити закладку ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub
Ви можете викликати функцію, додавши назву закладки та новий текст як аргументи:
Додатковий CallBookmarkFunction () Виклик UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Закінчити суб