Marcaje Word - Macro VBA pentru a adăuga, șterge, merge, modifica

Adaugă semn de carte

Această macrocomandă Word va adăuga un marcaj:

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

Ștergeți marcajul

Această macrocomandă VBA va șterge un marcaj:

Sub DeleteBookmark () Dacă ActiveDocument.Bookmarks.Exists ("easyexcel_net_01"), atunci trebuie să verificăm dacă există un marcaj numit "easyexcel_net_01" în documentul activ ActiveDocument.Bookmarks (Index: = "easyexcel_net_01"). Ștergeți End Dacă End Sub

Accesați Marcaj

Această macrocomandă simplă va merge la un marcaj:

Sub GoToBookmark () Dacă ActiveDocument.Bookmarks.Exists ("easyexcel_net_01"), atunci trebuie să verificăm dacă există un marcaj numit "easyexcel_net_01" în Selecția documentului activ.

Modificați marcajul

Această macrocomandă va modifica conținutul unui marcaj:

Sub ModifyBookmarkContent () „modifică conținutul marcajului” mai complicat, deoarece modificarea conținutului gamei de marcaje va șterge marcajul Dim oRangeBKM Ca interval Dacă ActiveDocument.Bookmarks.Exists („easyexcel_net_01”) Atunci „trebuie să verificăm dacă marcajul numit„ easyexcel_net_01 ”există în activ doc 'Identificați intervalul actual de marcaje și introduceți textul Set oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Range oRangeBKM.Text = "easyexcel.net"' Faceți din nou marcajul ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRangeBKM End If End Sub

Aceasta este o funcție de modificare a marcajului:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) Procedură „„ utilizabilă ”pentru adăugare în Dim oRangeBKM Ca Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Apoi, trebuie să verificăm dacă marcajul numit„ easyexcel_net_01 ”există în documentul activ„ Identify gama curentă de marcaje și inserarea textului Set oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Faceți din nou marcajul ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM End If End Sub

Puteți apela funcția adăugând numele marcajului și textul nou ca argumente:

Sub Apel BookmarkFunction () Actualizare apel BookmarkContent ("easyexcel_net_01", "easyexcel.net") Finalizare Sub