Word -kirjanmerkit - VBA -makrot, joita lisätä, poistaa, siirtyä, muokata

Lisää kirjanmerkki

Tämä Word -makro lisää kirjanmerkin:

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

Poista kirjanmerkki

Tämä VBA -makro poistaa kirjanmerkin:

Ala Poista Kirjanmerkki () Jos ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sitten meidän on tarkistettava, onko kirjanmerkki nimeltä "easyexcel_net_01" olemassa aktiivisessa asiakirjassa ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Poista Lopeta, jos loppuosa

Siirry kirjanmerkkiin

Tämä yksinkertainen makro siirtyy kirjanmerkkiin:

Sub GoToBookmark () Jos ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Sitten meidän on tarkistettava, onko kirjanmerkki nimeltä "easyexcel_net_01" olemassa aktiivisessa asiakirjassa Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" Lopeta, jos loppuosa

Muokkaa kirjanmerkkiä

Tämä makro muuttaa kirjanmerkin sisältöä:

Ala Muokkaa doc 'Tunnista nykyinen kirjanmerkkialue ja lisää teksti Aseta oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Alue oRangeBKM.Text = "easyexcel.net"' Tee kirjanmerkki ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If

Tämä on kirjanmerkkien muokkaustoiminto:

AlipäivitysBookmarkContent (strBookMarkName As String, strNewText As String) "" käyttökelpoinen "-menettely, joka lisätään Dim oRangeBKM As Range -arvoon, jos ActiveDocument.Bookmarks.Exists (strBookMarkName) Sitten meidän on tarkistettava, onko kirjanmerkki nimeltä" easyexcel_net_01 "olemassa aktiivisessa asiakirjassa" Identify " nykyinen kirjanmerkkialue ja lisää teksti Aseta oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Tee uudelleen kirjanmerkki ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Voit kutsua funktion lisäämällä argumentteihin kirjanmerkin nimen ja uuden tekstin:

Osa CallBookmarkFunction () Soita UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Lopeta