वर्ड बुकमार्क्स - वीबीए मैक्रोज़ टू ऐड, डिलीट, गोटो, मॉडिफाई

बुकमार्क जोड़ें

यह वर्ड मैक्रो एक बुकमार्क जोड़ देगा:

उप AddBookmark() ActiveDocument.Bookmarks.Add "easyexcel_net_01" एंड सब

बुकमार्क हटाएं

यह वीबीए मैक्रो एक बुकमार्क हटा देगा:

उप DeleteBookmark() यदि ActiveDocument.Bookmarks.Exists("easyexcel_net_01") तो 'हमें यह जांचने की आवश्यकता है कि क्या "easyexcel_net_01" नाम का बुकमार्क सक्रिय दस्तावेज़ ActiveDocument में मौजूद है।

बुकमार्क पर जाएं

यह साधारण मैक्रो किसी बुकमार्क पर जाएगा:

Sub GoToBookmark() यदि ActiveDocument.Bookmarks.Exists("easyexcel_net_01") तो 'हमें यह जांचने की आवश्यकता है कि क्या "easyexcel_net_01" नाम का बुकमार्क सक्रिय दस्तावेज़ चयन में मौजूद है। GoTo What:=wdGoToBookmark, Name:="easyexcel_net_01" End if End Sub

बुकमार्क संशोधित करें

यह मैक्रो किसी बुकमार्क की सामग्री को संशोधित करेगा:

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."easyexcel_net_01" जोड़ें, oRangeBKM एंड इफ एंड सब

यह एक संशोधित बुकमार्क फ़ंक्शन है:

Sub UpdateBookmarkContent(strBookMarkName As String, strNewText As String) '"प्रयोग करने योग्य' प्रक्रिया Dim oRangeBKM As रेंज में जोड़ने के लिए यदि ActiveDocument.Bookmarks.Exists(strBookMarkName) तब 'हमें यह जांचने की आवश्यकता है कि क्या "easyexcel_net_01" नाम का बुकमार्क सक्रिय दस्तावेज़ 'पहचानें' में मौजूद है वर्तमान बुकमार्क श्रेणी और पाठ सम्मिलित करें सेट करें oRangeBKM = ActiveDocument.Bookmarks(strBookMarkName).Range oRangeBKM.Text = strNewText 'बुकमार्क फिर से बनाएं ActiveDocument.Bookmarks.strBookMarkName जोड़ें, oRangeBKM End यदि अंत उप

आप बुकमार्क नाम और नए टेक्स्ट को तर्क के रूप में जोड़कर फ़ंक्शन को कॉल कर सकते हैं:

उप CallBookmarkFunction() कॉल UpdateBookmarkContent("easyexcel_net_01", "easyexcel.net") एंड सब