Ordmærker - VBA -makroer, der skal tilføjes, slettes, går til, ændres

Tilføj bogmærke

Denne Word -makro tilføjer et bogmærke:

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

Slet bogmærke

Denne VBA -makro sletter et bogmærke:

Sub DeleteBookmark () Hvis ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Så 'skal vi kontrollere, om bogmærket "easyexcel_net_01" findes i aktiv doc ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Slet End If End Sub

Gå til bogmærke

Denne enkle makro går til et bogmærke:

Sub GoToBookmark () Hvis ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Så 'skal vi kontrollere, om bogmærket "easyexcel_net_01" findes i aktiv doc Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub Sub

Rediger bogmærke

Denne makro ændrer et bogmærkes indhold:

Sub ModifyBookmarkContent () 'ændre bogmærkeindhold' mere kompliceret, fordi ændring af bogmærkeintervalindhold vil slette bogmærke Dim oRangeBKM som område, hvis ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Så 'skal vi kontrollere, om bogmærket med navnet "easyexcel_net_01" findes i aktivt doc 'Identificer det aktuelle bogmærkeområde og indsæt tekst Indstil oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Område oRangeBKM.Text = "easyexcel.net"' Lav igen bogmærket ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub Sub

Dette er en ændring af bogmærkefunktion:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) '' brugbar 'procedure for tilføjelse i Dim oRangeBKM som område Hvis ActiveDocument.Bookmarks.Exists (strBookMarkName) Så' skal vi kontrollere, om bogmærket med navnet "easyexcel_net_01" findes i aktiv doc 'Identify nuværende bogmærkeområde og indsæt tekst Indstil oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Lav igen bogmærket ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub Sub

Du kan kalde funktionen ved at tilføje bogmærke -navnet og ny tekst som argumenter:

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