Přidat záložku
Toto makro aplikace Word přidá záložku:
Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Smazat záložku
Toto makro VBA odstraní záložku:
Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'we need to check if bookmark named "easyexcel_net_01" contains active active doc ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Delete End If End Sub
Přejít na záložku
Toto jednoduché makro přejde na záložku:
Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'we need to check if bookmark named "easyexcel_net_01" contains active active doc Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub
Upravit záložku
Toto makro upraví obsah záložky:
Sub ModifyBookmarkContent () 'změnit obsah záložky' složitější, protože změnou obsahu rozsahu záložek se smaže záložka Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Then 'we need to check if bookmark named "easyexcel_net_01" in active doc 'Identifikujte aktuální rozsah záložek a vložte text Nastavit oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Rozsah oRangeBKM.Text = "easyexcel.net"' Znovu vytvořit záložku ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub
Toto je funkce úpravy záložky:
Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) '' použitelný 'postup pro přidání do Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Then' we need to check if bookmark named "easyexcel_net_01" in active doc 'Identify aktuální rozsah záložek a vložení textu Nastavit oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Znovu vytvořit záložku ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub
Funkci můžete vyvolat přidáním názvu záložky a nového textu jako argumentů:
Sub CallBookmarkFunction () Volání UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") End Sub
