Word Bookmarks - VBA makronaredbe za dodavanje, brisanje, prelazak na, izmjenu

Dodaj oznaku

Ova Word makronaredba dodat će oznaku:

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

Izbriši oznaku

Ova VBA makro izbrisat će oznaku:

Pod Izbriši Bookmark () Ako ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Zatim 'moramo provjeriti postoji li oznaka pod nazivom "easyexcel_net_01" u aktivnom dokumentu ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Izbriši kraj ako završi pod

Idite na Bookmark

Ovaj jednostavni makro ide do oznake:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Zatim 'moramo provjeriti postoji li oznaka pod nazivom "easyexcel_net_01" u aktivnom odabiru dokumenata. Idi na Što: = wdGoToBookmark, Naziv: = "easyexcel_net_01" Završi ako završi pod

Izmijeni oznaku

Ova makronaredba će izmijeniti sadržaj oznake:

Sub ModifyBookmarkContent () 'promijeni sadržaj oznaka' kompliciraniji, jer će se promjenom sadržaja raspona oznaka izbrisati oznaka Dim oRangeBKM kao raspon ako ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Zatim 'moramo provjeriti postoji li oznaka pod nazivom "easyexcel_net_01" aktivna doc 'Identificirajte trenutni raspon oznaka i umetnite tekst Postavite oRangeBKM = ActiveDocument. Bookmarks ("easyexcel_net_01"). Raspon oRangeBKM.Text = "easyexcel.net"' Ponovno napravite oznaku ActiveDocument.Bookmarks.Add "easyexcel_net_01", End

Ovo je izmjena funkcije oznaka:

Pod ažuriranje BookmarkContent (strBookMarkName As String, strNewText As String) '"upotrebljiva" procedura za dodavanje u Dim oRangeBKM kao raspon Ako ActiveDocument.Bookmarks.Exists (strBookMarkName) Tada' moramo provjeriti postoji li oznaka pod imenom "easyexcel_net_01" Identify trenutni raspon oznaka i umetnuti tekst Postavite oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Ponovno napravite oznaku ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Funkciju možete pozvati dodavanjem naziva oznake i novog teksta kao argumente:

Sub CallBookmarkFunction () Poziv Update UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Kraj Sub