Wordi järjehoidjad - VBA -makrod, mida lisada, kustutada, minna, muuta

Lisa järjehoidja

See Wordi makro lisab järjehoidja:

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

Kustuta järjehoidja

See VBA makro kustutab järjehoidja:

Alam Kustuta Järjehoidja () Kui ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Siis peame kontrollima, kas järjehoidja nimega "easyexcel_net_01" eksisteerib aktiivses dokumendis ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Kustuta lõpp kui lõpp

Ava Järjehoidja

See lihtne makro läheb järjehoidja juurde:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Siis peame kontrollima, kas järjehoidja nimega "easyexcel_net_01" eksisteerib aktiivses dokumendis Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub

Muuda järjehoidjat

See makro muudab järjehoidja sisu:

Sub ModifyBookmarkContent () 'Järjehoidjate sisu muutmine' on keerulisem, sest järjehoidjavahemiku sisu muutmine kustutab järjehoidja Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Seejärel peame kontrollima, kas järjehoidja nimega "easyexcel_net_01" on aktiivne doc 'Identifitseerige praegune järjehoidjavahemik ja lisage tekst Set oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Vahemik oRangeBKM.Text = "easyexcel.net"' Tehke uuesti järjehoidja ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If

See on järjehoidjate muutmise funktsioon:

Alamvärskendus BookmarkContent (strBookMarkName As String, strNewText As String) "kasutatav" protseduur lisamiseks Dim oRangeBKM As Range Kui ActiveDocument.Bookmarks.Exists (strBookMarkName) Seejärel peame kontrollima, kas järjehoidja nimega "easyexcel_net_01" eksisteerib aktiivses dokumendis 'Identify praegune järjehoidjavahemik ja teksti sisestamine Määra oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Tee uuesti järjehoidja ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Funktsiooni saab kutsuda, lisades argumentidena järjehoidja nime ja uue teksti:

Alam CallBookmarkFunction () Helista UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Lõpu alam