Word Bookmarks - VBA макроси за добавяне, изтриване, преминаване, промяна

Добави отметка

Този макрос на 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 As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Тогава „трябва да проверим дали отметката с име„ easyexcel_net_01 “съществува в активна doc 'Идентифицирайте текущия диапазон на отметките и вмъкнете текст Задайте oRangeBKM = ActiveDocument. Bookmarks ("easyexcel_net_01"). Обхват oRangeBKM.Text = "easyexcel.net"' Направете отново отметката ActiveDocument.Bookmarks.Add "easyexcel_net_01", EndRangeB

Това е промяна на функцията за отметки:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "" използваема "процедура за добавяне в Dim oRangeBKM като обхват Ако ActiveDocument.Bookmarks.Exists (strBookMarkName) Тогава" трябва да проверим дали отметката с име "easyexcel_net_01" Identify в active doc текущ диапазон на отметки и вмъкване на текст Задайте 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") Край на Sub