Word grāmatzīmes - VBA makro pievienošanai, dzēšanai, pārejai, modificēšanai

Pievienot grāmatzīmi

Šis Word makro pievienos grāmatzīmi:

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

Dzēst grāmatzīmi

Šis VBA makro izdzēsīs grāmatzīmi:

Apakš Dzēst Grāmatzīme () Ja ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Tad mums ir jāpārbauda, ​​vai aktīvajā dokumentā ActiveDocument.Bookmarks (grāmatzīme: = "easyexcel_net_01") pastāv grāmatzīme ar nosaukumu "easyexcel_net_01".

Dodieties uz Grāmatzīme

Šis vienkāršais makro tiks novirzīts uz grāmatzīmi:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Tad mums ir jāpārbauda, ​​vai grāmatzīme ar nosaukumu "easyexcel_net_01" eksistē aktīvajā dokumentā Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" Beigu Ja beigas

Mainīt grāmatzīmi

Šis makro mainīs grāmatzīmes saturu:

Sub ModifyBookmarkContent () 'mainīt grāmatzīmju saturu' ir sarežģītāks, jo, mainot grāmatzīmju diapazona saturu, tiks dzēsta grāmatzīme Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Tad "mums ir jāpārbauda, ​​vai aktīvā grāmatzīme ar nosaukumu" easyexcel_net_01 " doc 'Identificējiet pašreizējo grāmatzīmju diapazonu un ievietojiet tekstu.

Šī ir grāmatzīmju mainīšanas funkcija:

Apakš UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "izmantojama" procedūra, lai pievienotu Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Tad mums ir jāpārbauda, ​​vai aktīvajā dokumentā "Identify" ir grāmatzīme ar nosaukumu "easyexcel_net_01" pašreizējais grāmatzīmju diapazons un ievietojiet tekstu

Funkciju var izsaukt, pievienojot grāmatzīmes nosaukumu un jaunu tekstu kā argumentus:

Call CallmarkFunction () Zvanīt uz UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Beigu apakšdaļa