Word Záložky - makrá VBA na pridávanie, odstraňovanie, prechádzanie, úpravy

Pridať záložku

Toto makro programu Word pridá záložku:

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

Odstrániť záložku

Toto makro VBA odstráni záložku:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Potom 'musíme skontrolovať, či záložka s názvom "easyexcel_net_01" existuje v aktívnom dokumente ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Odstrániť End If End Sub

Prejdite na záložku

Toto jednoduché makro prejde na záložku:

Vedľajšia záložka GoToBookmark () Ak ActiveDocument.Bookmarks.Existuje („easyexcel_net_01“) Potom „musíme skontrolovať, či v aktívnom výbere dokumentov existuje záložka s názvom„ easyexcel_net_01 “.GoTo Čo: = wdGoToBookmark, Názov: = "easyexcel_net_01" Koniec Ak Koniec Sub

Upraviť záložku

Toto makro upraví obsah záložky:

Sub ModifyBookmarkContent () 'zmení obsah záložky' komplikovanejšie, pretože zmenou obsahu rozsahu záložiek sa odstráni záložka Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'musíme skontrolovať, či záložka s názvom "easyexcel_net_01" existuje v aktívnom stave doc 'Identifikujte aktuálny rozsah záložiek a vložte text Nastaviť oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Rozsah oRangeBKM.Text = "easyexcel.net"' Znovu vytvoriť záložku ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Toto je funkcia úpravy záložky:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) „Použiteľný“ postup na pridanie do rozsahu Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Potom „musíme skontrolovať, či v aktívnom dokumente existuje záložka s názvom„ easyexcel_net_01 “Identifikovať aktuálny rozsah záložiek a vloženie textu Nastaviť oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Vytvoriť znova záložku ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Funkciu môžete vyvolať pridaním názvu záložky a nového textu ako argumentov:

Sub CallBookmarkFunction () Call UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") End Sub