„Word“ žymės - VBA makrokomandos, kurias reikia pridėti, ištrinti, pereiti, keisti

Pridėti žymą

Ši „Word“ makrokomanda pridės žymę:

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

Ištrinti žymę

Ši VBA makrokomanda ištrins žymę:

Sub Delete Bookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Tada turime patikrinti, ar aktyvioje „ActiveDocument.Bookmarks“ (indeksas: = "easyexcel_net_01") yra žymė, pavadinta „easyexcel_net_01“. Ištrinti pabaigą, jei pabaiga

Eikite į žymę

Ši paprasta makrokomanda pateks į žymę:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Tada mes turime patikrinti, ar aktyvioje dokumento Selection.GoTo What: = wdGoToBookmark, Name: = "easyexcel_net_01" pabaiga Jei pabaiga Sub

Keisti žymę

Ši makrokomanda pakeis žymės turinį:

Sub ModifyBookmarkContent () „keisti žymių turinį“ yra sudėtingesnis, nes pakeitus žymių diapazono turinį, žymė bus ištrinta doc 'Nustatykite dabartinį žymių diapazoną ir įterpkite tekstą

Tai yra žymių keitimo funkcija:

„UpdateBookmarkContent“ (strBookMarkName As String, strNewText As String) „naudojama“ procedūra, skirta pridėti „Dim oRangeBKM As Range“, jei „ActiveDocument.Bookmarks.Exists“ („strBookMarkName“) dabartinis žymių diapazonas ir įterpkite tekstą Nustatykite oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName). Range oRangeBKM.Text = strNewText 'Dar kartą padarykite žymę ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Funkciją galite iškviesti pridėdami žymės pavadinimą ir naują tekstą kaip argumentus:

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