मुख्य सामग्री पर जाएं

किसी Word दस्तावेज़ में एक ही शब्द के सभी उदाहरणों को बोल्ड कैसे करें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2018-10-22

यदि आपकी वर्ड फ़ाइल में एकाधिक "आउटलुक" टेक्स्ट हैं, तो अब आपको सभी "आउटलुक" टेक्स्ट को बोल्ड के रूप में प्रारूपित करने की आवश्यकता है। आप एक बड़े Word दस्तावेज़ में एक ही शब्द के सभी उदाहरणों को जितनी जल्दी हो सके बोल्ड कैसे कर सकते हैं?

किसी Word दस्तावेज़ में VBA कोड के साथ एक ही शब्द के सभी उदाहरणों को बोल्ड करें


किसी Word दस्तावेज़ में VBA कोड के साथ एक ही शब्द के सभी उदाहरणों को बोल्ड करें

निम्नलिखित वीबीए कोड आपको किसी विशिष्ट शब्द के सभी उदाहरणों को जल्दी और आसानी से बोल्ड करने में मदद कर सकता है, कृपया ऐसा करें:

1. दबाए रखें ALT + F11 कुंजी को खोलने के लिए अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.

2. और फिर, क्लिक करें सम्मिलित करें > मॉड्यूल, खुले हुए रिक्त मॉड्यूल में नीचे दिए गए कोड को कॉपी और पेस्ट करें:

वीबीए कोड: एक ही शब्द के सभी उदाहरणों को बोल्ड करें

Sub BoldAll()
    Dim xStr As String
    xStr = InputBox("Please enter the word that you want to bold:", "KuTools for Word")
    If Trim(xStr) = "" Then
        MsgBox "Cann’t be empty!", vbInformation, "KuTools for Word"
    End If
    With ActiveDocument.Content.Find
        .ClearFormatting
        .Text = xStr
        .Replacement.ClearFormatting
        .Replacement.Font.Bold = True
        .Replacement.Text = "^&"
        .Wrap = wdFindStop
        .Format = True
        .Forward = True
        .Execute Replace:=wdReplaceAll
    End With
End Sub

3. - कोड डालने के बाद प्रेस करें F5 इसे चलाने के लिए कुंजी, और एक डायलॉग बॉक्स पॉप आउट होता है जो आपको उस शब्द को डालने की याद दिलाता है जिसे आप बोल्ड करना चाहते हैं, स्क्रीनशॉट देखें:

दस्तावेज़ बोल्ड विशिष्ट शब्द 1

4. और फिर, क्लिक करें OK बटन, और सभी विशिष्ट शब्दों को एक ही बार में बोल्ड स्वरूपित कर दिया गया है।

सर्वोत्तम कार्यालय उत्पादकता उपकरण

वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!

🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें  /  पाठ पुनः लिखें  /  दस्तावेज़ों को सारांशित करें  /  जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर

📘 दस्तावेज़ महारत: पन्ने विभाजित करें  /  दस्तावेज़ मर्ज करें  /  विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...)  /  बैच को पीडीएफ में कनवर्ट करें  /  पेजों को छवियों के रूप में निर्यात करें  /  एक साथ अनेक फ़ाइलें प्रिंट करें...

सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में  /  सभी चित्रों का आकार बदलें  /  तालिका पंक्तियों और स्तंभों को स्थानांतरित करें  /  तालिका को पाठ में बदलें...

🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान  /  अनुभाग टूट जाता है  /  सभी शीर्षलेख  /  पाठ बक्से  /  हाइपरलिंक  / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...

रचनात्मक निवेशन: डालें हजार विभाजक  /  चेक बॉक्स  /  रेडियो बटन  /  क्यूआर कोड  /  बारकोड  /  विकर्ण रेखा तालिका  /  समीकरण कैप्शन  /  तस्वीर का शीर्षक  /  सारणी का शीर्षक  /  एकाधिक चित्र  / में और अधिक खोजें समूह सम्मिलित करें...

🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ  /  टेबल्स  /  आकृतियाँ  /  शीर्षक पैराग्राफ  / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...

स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें  /  दोहरावदार पाठ स्वतः सम्मिलित करें  /  दस्तावेज़ विंडोज़ के बीच टॉगल करें  /  11 रूपांतरण उपकरण...

👉 क्या आप इन सुविधाओं को आज़माना चाहते हैं? वर्ड के लिए कुटूल्स एक ऑफर करता है 60- दिन का नि: शुल्क परीक्षण, बिना किसी सीमा के! 🚀
 
Comments (4)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Que isso, salvou meu dia no escritório. Muito obrigado!
This comment was minimized by the moderator on the site
Using Google Translate, this is what Stef had said,
"Hello and thank you for this piece of VBA code.

I work on documents that contain keywords explained like this <#myKeyword>
I would like to identify and bold all the elements that are between < and >.

Is this possible in VBA and could you guide me?

Best to you. (A friendly regard used between people who exchange services or information.)

Stef"

Separately, I, Kaitlyn, was wondering if I could use code to bold all questions.
This comment was minimized by the moderator on the site
Bonjour et merci pour ce bout de code VBA.

Je travaille sur des documents qui contiennent des mots clés explicités de la sorte <#monMotClé>
je souhaiterais repérer et mettre en gras tous les éléments qui se trouvent entre < et >.

est-ce que cela est possible en VBA et pourriez vous me guider ?

Bien à vous.

Stef
This comment was minimized by the moderator on the site
Hello, Stef,
Sorry, I can't understand your question clearly, could you explain your problem in English?
Thank you!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations