Σελιδοδείκτες λέξεων - Μακροεντολές VBA για προσθήκη, διαγραφή, μετάβαση, τροποποίηση

Πρόσθεσε σελιδοδείκτη

Αυτή η μακροεντολή του Word θα προσθέσει έναν σελιδοδείκτη:

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

Διαγραφή σελιδοδείκτη

Αυτή η μακροεντολή VBA θα διαγράψει έναν σελιδοδείκτη:

Sub DeleteBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Στη συνέχεια "πρέπει να ελέγξουμε αν υπάρχει σελιδοδείκτης με το όνομα" easyexcel_net_01 "στο ενεργό έγγραφο ActiveDocument.Bookmarks (Ευρετήριο: =" easyexcel_net_01 "). Διαγραφή Τέλος Αν Τέλος

Μετάβαση στο σελιδοδείκτη

Αυτή η απλή μακροεντολή θα μεταβεί σε σελιδοδείκτη:

Sub GoToBookmark () If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Στη συνέχεια "πρέπει να ελέγξουμε αν υπάρχει σελιδοδείκτης με το όνομα" easyexcel_net_01 "στο ενεργό έγγραφο Selection.GoTo What: = wdGoToBookmark, Όνομα: =" Subyexcel_net_01 "End

Τροποποίηση σελιδοδείκτη

Αυτή η μακροεντολή θα τροποποιήσει το περιεχόμενο ενός σελιδοδείκτη:

Sub ModifyBookmarkContent () 'αλλαγή περιεχομένου σελιδοδείκτη' πιο περίπλοκο, επειδή η αλλαγή περιεχομένου εύρους σελιδοδεικτών θα διαγράψει το σελιδοδείκτη Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists ("easyexcel_net_01") Στη συνέχεια "πρέπει να ελέγξουμε αν υπάρχει ενεργός σελιδοδείκτης με το όνομα" easyexcel_net_01 " doc 'Προσδιορίστε το τρέχον εύρος σελιδοδεικτών και εισαγάγετε κείμενο Σετ oRangeBKM = ActiveDocument.Bookmarks ("easyexcel_net_01"). Range oRangeBKM.Text = "easyexcel.net"' Δημιουργήστε ξανά τον σελιδοδείκτη ActiveDocument.Bookmarks.Add "easyexcel_net_01", oRange

Αυτή είναι μια λειτουργία τροποποίησης σελιδοδείκτη:

Sub UpdateBookmarkContent (strBookMarkName As String, strNewText As String) '' usable '' procedure for add in Dim oRangeBKM As Range If ActiveDocument.Bookmarks.Exists (strBookMarkName) Στη συνέχεια 'πρέπει να ελέγξουμε αν υπάρχει σελιδοδείκτης με το όνομα' easyexcel_net_01 ' τρέχουσα περιοχή σελιδοδεικτών και εισαγωγή κειμένου Σετ oRangeBKM = ActiveDocument.Bookmarks (strBookMarkName) .Range oRangeBKM.Text = strNewText 'Κάντε ξανά τον σελιδοδείκτη ActiveDocument.Bookmarks.Add strBookMarkName, oRangeBKM Τέλος Αν Τέλος Sub

Μπορείτε να καλέσετε τη συνάρτηση προσθέτοντας το όνομα σελιδοδείκτη και το νέο κείμενο ως ορίσματα:

Sub CallBookmarkFunction () Call UpdateBookmarkContent ("easyexcel_net_01", "easyexcel.net") Τέλος υπο