Word-bladwijzers - VBA-macro's om toe te voegen, te verwijderen, te gaan, te wijzigen

Voeg bladwijzer toe

Deze Word-macro voegt een bladwijzer toe:

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

Bladwijzer verwijderen

Deze VBA-macro verwijdert een bladwijzer:

Sub DeleteBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Dan moeten we controleren of de bladwijzer met de naam "easyexcel_net_01" bestaat in het actieve document ActiveDocument.Bookmarks(Index:="easyexcel_net_01").Delete End If End Sub

Ga naar bladwijzer

Deze eenvoudige macro gaat naar een bladwijzer:

Sub GoToBookmark() If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Dan moeten we controleren of bladwijzer met de naam "easyexcel_net_01" bestaat in het actieve document Selection.GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End If End Sub

Bladwijzer wijzigen

Deze macro zal de inhoud van een bladwijzer wijzigen:

Sub ModifyBookmarkContent() ' inhoud van bladwijzer wijzigen ' ingewikkelder, omdat het wijzigen van de inhoud van het bladwijzerbereik de bladwijzer zal verwijderen Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists("easyexcel_net_01") Dan 'moeten we controleren of de bladwijzer met de naam "easyexcel_net_01" in actief bestaat doc 'Identificeer huidig ​​Bookmark-bereik en voeg tekst toe Set oRangeBKM = ActiveDocument.Bookmarks("easyexcel_net_01").Range oRangeBKM.Text = "easyexcel.net" 'Maak opnieuw de bookmark ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End

Dit is een functie voor het wijzigen van bladwijzers:

Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) ' "bruikbare" procedure voor toevoegen in Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists(strBookMarkName) Dan moeten we controleren of de bladwijzer met de naam "easyexcel_net_01" bestaat in het actieve document 'Identify huidige bladwijzerbereik en tekst invoegen Set oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'Maak opnieuw de bladwijzer ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

U kunt de functie aanroepen door de bladwijzernaam en nieuwe tekst als argumenten toe te voegen:

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