Ordbokmerker - VBA -makroer for å legge til, slette, gå til, endre

Legg til bokmerke

Denne Word -makroen legger til et bokmerke:

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

Slett bokmerke

Denne VBA -makroen sletter et bokmerke:

Sub DeleteBookmark () Hvis ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Deretter må vi sjekke om bokmerke med navnet "easyexcel_net_01" finnes i Active Doc ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Slett End If End Sub

Gå til bokmerke

Denne enkle makroen går til et bokmerke:

Sub GoToBookmark () Hvis ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Så 'må vi sjekke om bokmerket med navnet' easyexcel_net_01 'finnes i aktiv doc Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub Sub

Endre bokmerke

Denne makroen vil endre innholdet i et bokmerke:

Sub ModifyBookmarkContent () 'endre bokmerkeinnhold' mer komplisert, fordi endring av bokmerkeinnhold vil slette bokmerke Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Så 'må vi sjekke om bokmerke med navnet' easyexcel_net_01 'finnes i aktive doc 'Identifiser gjeldende bokmerkeområde og sett inn tekst Sett oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Område oRangeBKM.Text = "easyexcel.net"' Lag igjen bokmerket ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub Sub

Dette er en endre bokmerkefunksjon:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "" brukbar "prosedyre for add in Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Then 'we need to check if bookmark named" easyexcel_net_01 "exist in active doc' Identify nåværende bokmerkeområde og sett inn tekst Angi oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Lag igjen bokmerket ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Du kan kalle funksjonen ved å legge til bokmerkenavnet og ny tekst som argumenter:

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