Word könyvjelzők - VBA makrók hozzáadása, törlése, mentése, módosítása

Könyvjelző hozzáadása

Ez a Word makró hozzáad egy könyvjelzőt:

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

Könyvjelző törlése

Ez a VBA makró törli a könyvjelzőt:

Sub Törlés

Ugrás a Könyvjelzőhöz

Ez az egyszerű makró egy könyvjelzőhöz kerül:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Ezután ellenőriznünk kell, hogy létezik -e az "easyexcel_net_01" nevű könyvjelző az aktív Doc Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" End If End Sub részen

Könyvjelző módosítása

Ez a makró módosítja a könyvjelző tartalmát:

Sub ModifyBookmarkContent () 'a könyvjelző tartalmának módosítása' bonyolultabb, mert a könyvjelzőtartomány tartalmának megváltoztatása törli a könyvjelzőt Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Eistsists ("easyexcel_net_01") Ezután ellenőriznünk kell, hogy létezik -e az "easyexcel_net_01" nevű könyvjelző doc 'Azonosítsa a jelenlegi könyvjelzőtartományt és illesszen be szöveget Set oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Range oRangeBKM.Text = "easyexcel.net"' Csinálja újra a könyvjelzőt ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If

Ez a könyvjelző módosítása funkció:

Rész Frissítés aktuális Könyvjelzőtartomány és szöveg beszúrása Set oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Újból készítse el a könyvjelzőt ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

A funkciót úgy hívhatja meg, hogy argumentumként hozzáadja a könyvjelző nevét és az új szöveget:

Call CallmarkFunction () Call UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") End Sub