Innehållsförteckning
Lägg till bokmärke
Detta Word -makro lägger till ett bokmärke:
Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Ta bort bokmärke
Detta VBA -makro tar bort ett bokmärke:
Sub DeleteBookmark () Om ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sedan måste vi kontrollera om bokmärket "easyexcel_net_01" finns i aktiv doc ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Radera End If End Sub
Gå till bokmärke
Detta enkla makro kommer att gå till ett bokmärke:
Sub GoToBookmark () Om ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sedan måste vi kontrollera om bokmärket "easyexcel_net_01" finns i aktiv doc Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub Sub
Ändra bokmärke
Detta makro kommer att ändra ett bokmärkes innehåll:
Sub ModifyBookmarkContent () "ändra bokmärkesinnehåll" mer komplicerat, eftersom ändring av bokmärkesintervall kommer att radera bokmärke Dim oRangeBKM som intervall om ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sedan "måste vi kontrollera om bokmärke med namnet" easyexcel_net_01 "finns i aktiv doc 'Identifiera aktuellt bokmärkesintervall och infoga text Ställ in oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Område oRangeBKM.Text = "easyexcel.net"' Gör igen bokmärket ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub Sub
Detta är en ändra bokmärkesfunktion:
Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "" användbar "procedur för att lägga till i Dim oRangeBKM som intervall Om ActiveDocument.Bookmarks.Exists (strBookMarkName) Sedan" måste vi kontrollera om bokmärket med namnet "easyexcel_net_01" finns i aktiv doc 'Identifiera nuvarande bokmärkesintervall och infoga text Ange oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Gör igen bokmärket ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub Sub
Du kan anropa funktionen genom att lägga till bokmärkesnamnet och ny text som argument:
Sub CallBookmarkFunction () Call UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Avsluta Sub
