Word दस्तावेज़ में संख्या को शब्दों में कैसे बदलें?
यह आलेख वर्ड दस्तावेज़ में संख्याओं को अंग्रेजी शब्दों में परिवर्तित करने की विधि के बारे में बात कर रहा है, यदि आप रुचि रखते हैं तो कृपया विवरण देखने के लिए आगे बढ़ें।
VBA के साथ संख्या को अंग्रेजी शब्दों में बदलें
एक्सेल के लिए कुटूल के साथ एक्सेल में संख्या को अंग्रेजी शब्दों में बदलें
VBA के साथ संख्या को अंग्रेजी शब्दों में बदलें
1. वह संख्या चुनें जिसे आप शब्दों में बदलना चाहते हैं, दबाएँ ऑल्ट + F11 खोलने के लिए चाबी अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक खिड़की.
2। क्लिक करें सम्मिलित करें > मॉड्यूल, और नीचे दिए गए कोड को कॉपी करें और उन्हें पेस्ट करें मॉड्यूल लिपियों.
वीबीए: संख्या को शब्दों में बदलें
Sub ConvertNumberToWord()
'UpdatebyExtendoffice20181010
Dim xDigit As Double
Dim xBuff As String
On Error Resume Next
Selection.MoveLeft wdWord, 1, wdMove
Selection.MoveRight wdWord, 1, wdExtend
xDigit = Val(Trim(Selection.Text))
If xDigit = 0 And Str(xDigit) <> Trim(Selection.Text) Then Exit Sub
If xDigit > 999999 Then
If xDigit <= 999999999 Then
xBuff = Trim(Int(Str(xDigit / 1000000)))
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + xBuff + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xBuff = Selection.Text & " million "
xDigit = Right(Str(xDigit), 6)
End If
End If
If xDigit <= 999999 Then
Selection.Fields.Add Selection.Range, wdFieldEmpty, "= " + Str(xDigit) + " \* CardText", True
Selection.MoveLeft wdWord, 1, wdExtend
xDigit = xBuff & Selection.Text
Selection.TypeText xDigit + " "
Else
MsgBox "Number too large", vbOKOnly, "Kutool for Word"
End If
End Sub
3। दबाएँ F5 कोड को चलाने के लिए कुंजी, अब संख्या को शब्दों में बदल दिया गया है।
नोट:कोड हर बार केवल एक नंबर पर काम करता है।
एक्सेल के लिए कुटूल के साथ संख्या को अंग्रेजी शब्दों में बदलें
यदि आप एक्सेल शीट में संख्याओं को शब्दों में बदलना चाहते हैं, तो एक उपयोगी उपकरण है - शब्दों को संख्याएँ एक्सेल के लिए कुटूल, जो संख्याओं को अंग्रेजी या चीनी शब्दों में परिवर्तित कर सकता है, या संख्याओं को अंग्रेजी मुद्रा या चीनी मुद्रा में परिवर्तित कर सकता है।
एक्सेल के लिए कुटूल, से अधिक के साथ 300 सुविधाजनक कार्य, आपके कार्यों को और अधिक आसान बनाते हैं। |
बाद मुफ़्त इंस्टालेशन एक्सेल के लिए कुटूल, कृपया नीचे दिए अनुसार कार्य करें:
1. उन कक्षों का चयन करें जिन्हें आप संख्याओं को शब्दों में बदलना चाहते हैं, फिर क्लिक करें कुटूल > सामग्री > शब्दों को संख्याएँ.
2. पॉपिंग डायलॉग में, चेक करें अंग्रेज़ी और मुद्रा में परिवर्तित नहीं किया गया विकल्प.
3। क्लिक करें Ok or लागू करें, चयनित संख्याएँ शब्दों में परिवर्तित हो जाएँगी।
सर्वोत्तम कार्यालय उत्पादकता उपकरण
वर्ड के लिए कुटूल - ओवर के साथ अपने शब्द अनुभव को उन्नत करें 100 उल्लेखनीय विशेषताएं!
🤖 कुटूल्स एआई असिस्टेंट: एआई के साथ अपना लेखन बदलें - सामग्री उत्पन्न करें / पाठ पुनः लिखें / दस्तावेज़ों को सारांशित करें / जानकारी के लिए पूछताछ करें दस्तावेज़ पर आधारित, सभी वर्ड के भीतर
📘 दस्तावेज़ महारत: पन्ने विभाजित करें / दस्तावेज़ मर्ज करें / विभिन्न प्रारूपों में निर्यात चयन (पीडीएफ/टीएक्सटी/डीओसी/एचटीएमएल...) / बैच को पीडीएफ में कनवर्ट करें / पेजों को छवियों के रूप में निर्यात करें / एक साथ अनेक फ़ाइलें प्रिंट करें...
✏ सामग्री संपादन: बैच ढूंढें और बदलें अनेक फ़ाइलों में / सभी चित्रों का आकार बदलें / तालिका पंक्तियों और स्तंभों को स्थानांतरित करें / तालिका को पाठ में बदलें...
🧹 सहज स्वच्छ: साफ़ कर दो अतिरिक्त स्थान / अनुभाग टूट जाता है / सभी शीर्षलेख / पाठ बक्से / हाइपरलिंक / अधिक हटाने वाले टूल के लिए, यहां जाएं समूह हटाएँ...
➕ रचनात्मक निवेशन: डालें हजार विभाजक / चेक बॉक्स / रेडियो बटन / क्यूआर कोड / बारकोड / विकर्ण रेखा तालिका / समीकरण कैप्शन / तस्वीर का शीर्षक / सारणी का शीर्षक / एकाधिक चित्र / में और अधिक खोजें समूह सम्मिलित करें...
🔍 परिशुद्धता चयन: सटीक विशिष्ट पृष्ठ / टेबल्स / आकृतियाँ / शीर्षक पैराग्राफ / के साथ नेविगेशन बढ़ाएँ अधिक सुविधाएँ चुनें...
⭐ स्टार संवर्द्धन: किसी भी स्थान पर नेविगेट करें / दोहरावदार पाठ स्वतः सम्मिलित करें / दस्तावेज़ विंडोज़ के बीच टॉगल करें / 11 रूपांतरण उपकरण...