Dodaj zaznamek
Ta Wordov makro bo dodal zaznamek:
Sub AddBookmark () ActiveDocument.Bookmarks.Add "easyexcel_net_01" End Sub
Izbriši zaznamek
Ta makro VBA bo izbrisal zaznamek:
Sub DeleteBookmark () Če ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Potem moramo preveriti, ali zaznamek z imenom "easyexcel_net_01" obstaja v aktivnem dokumentu ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Izbriši konec, če končate pod
Pojdi na zaznamek
Ta preprost makro bo šel med zaznamke:
Pod GoToBookmark () Če ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Potem 'moramo preveriti, ali zaznamek z imenom "easyexcel_net_01" obstaja v aktivnem izboru dokumentov. Pojdi na Kaj: = wdGoToBookmark, Ime: = "easyexcel_net_01" Končaj, če se konča Sub
Spremeni zaznamek
Ta makro bo spremenil vsebino zaznamka:
Sub ModifyBookmarkContent () 'spremeni vsebino zaznamkov' bolj zapleteno, ker bo s spreminjanjem obsega zaznamkov izbrisan zaznamek Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Potem 'moramo preveriti, ali zaznamek z imenom "easyexcel_net_01" obstaja v aktivnem doc 'Določite trenutni obseg zaznamkov in vstavite besedilo Nastavite oRangeBKM = ActiveDocument.Zaznamke ("easyexcel_net_01"). Razpon oRangeBKM.Text = "easyexcel.net"' Znova ustvarite zaznamek ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeB SubMed
To je funkcija spreminjanja zaznamkov:
Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) "" uporaben "postopek za dodajanje v Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Potem" moramo preveriti, ali zaznamek z imenom "easyexcel_net_01" Identify v aktivnem dokumentu trenutni obseg zaznamkov in vstavite besedilo Nastavite oRangeBKM = ActiveDocument.Zaznamke (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Ponovno ustvarite zaznamek ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub
Funkcijo lahko pokličete tako, da kot argument dodate ime zaznamka in novo besedilo:
Sub CallBookmarkFunction () Klic Update UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Konec Sub