Word दस्तावेज़ में दो बुकमार्क के बीच टेक्स्ट को कैसे चुनें या हटाएं?
क्या आप जानते हैं कि Word दस्तावेज़ में दो बुकमार्क के बीच की सामग्री को कैसे चुनें या हटाएँ? यह लेख आपको इससे निपटने के तरीके बताएगा।
VBA के साथ दो बुकमार्क के बीच टेक्स्ट चुनें/हटाएं
VBA के साथ दो बुकमार्क के बीच टेक्स्ट चुनें/हटाएं
मान लीजिए कि आपके दस्तावेज़ में दो बुकमार्क हैं, जैसा कि नीचे स्क्रीनशॉट में दिखाया गया है, आप निम्नलिखित वीबीए कोड के साथ इन दोनों बुकमार्क के बीच की सभी सामग्री का चयन या हटा सकते हैं।
1. दस्तावेज़ में, दबाएँ ऑल्ट + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की, क्लिक करें सम्मिलित करें > मॉड्यूल, फिर नीचे दिए गए कोड को मॉड्यूल विंडो में कॉपी करें।
दो बुकमार्क के बीच टेक्स्ट को चुनने या हटाने के लिए, कृपया इस कोड का उपयोग करें:
वीबीए कोड: वर्ड में दो निर्दिष्ट बुकमार्क के बीच टेक्स्ट का चयन करें:
Sub SelectBetweenBookmarks()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox "Please enter the correct bookmark name", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Select
End Sub
वीबीए कोड: वर्ड में दो निर्दिष्ट बुकमार्क के बीच का टेक्स्ट हटाएं:
Sub DeleteBetweenBookmarks ()
Dim xRange As Range
Dim xBMone, xBMtwo As Bookmark
Dim xBookMarkOne, xBookMarkTwo As String
On Error Resume Next
Set xRange = ActiveDocument.Content
xBookMarkOne = InputBox("Please enter the start bookmark:", "Kutools for Word")
xBookMarkTwo = InputBox("Please enter the end bookmark:", "Kutools for Word")
Set xBMone = ActiveDocument.Bookmarks(xBookMarkOne)
Set xBMtwo = ActiveDocument.Bookmarks(xBookMarkTwo)
If xBMone Is Nothing Or xBMtwo Is Nothing Then
MsgBox " Please enter the correct bookmark name ", vbInformation, "KuTools for Word"
Exit Sub
End If
xRange.Start = xBMone.Range.End
xRange.End = xBMtwo.Range.Start
xRange.Delete
End Sub
3। दबाएं F5 कोड चलाने की कुंजी.
4. प्रथम में वर्ड के लिए कुटूल संवाद बॉक्स में, टेक्स्ट बॉक्स में प्रारंभ बुकमार्क नाम दर्ज करें और क्लिक करें OK.
5. दूसरे में वर्ड के लिए कुटूल संवाद बॉक्स में, अंतिम बुकमार्क दर्ज करें और क्लिक करें OK. स्क्रीनशॉट देखें:
नोट: यदि आपके द्वारा दर्ज किया गया बुकमार्क नाम दस्तावेज़ में मौजूद नहीं है, तो वर्ड के लिए एक और कुटूल संवाद बॉक्स आपको सही दर्ज करने की याद दिलाने के लिए पॉप अप होगा।
फिर निर्दिष्ट बुकमार्क के बीच की सभी सामग्री तुरंत चयनित या हटा दी जाती है। स्क्रीनशॉट देखें.
दो बुकमार्क के बीच टेक्स्ट का चयन करें:
दो बुकमार्क के बीच के टेक्स्ट हटाएं.
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...