Word दस्तावेज़ से ईमेल पते निकालने का तरीका

यहाँ Windows 11/10 में Word दस्तावेज़ों से सभी ईमेल पते निकालने का एक ट्यूटोरियल दिया गया है। यदि आपके पास कई ईमेल पतों वाले Word दस्तावेज़ (DOC, DOCX) हैं और आप उन ईमेल पतों का किसी भी उद्देश्य के लिए उपयोग करना चाहते हैं, तो उन्हें मैन्युअली खोजना बहुत थकाऊ हो सकता है। आपके लिए एक आसान समाधान है दस्तावेज़ से सभी ईमेल पतों को निकालना और फिर उनका मनचाहा उपयोग करना। अब, Word दस्तावेज़ों से ईमेल पते निकालने के लिए आपको किसी थर्ड-पार्टी समाधान की आवश्यकता नहीं है। इस लेख में, मैं Word दस्तावेज़ों से ईमेल पते निकालने के दो सरल तरीके दिखाऊंगा। आप यह Microsoft Word एप्लिकेशन में ही कर सकते हैं। आइए अब इन तरीकों को देखते हैं!

Word दस्तावेज़ से ईमेल पते कैसे निकालें

Windows 11/10 में Word दस्तावेज़ से सभी ईमेल पते निकालने के दो तरीके यहाँ दिए गए हैं:

1. MS Word में Advanced Find विकल्प का उपयोग करके ईमेल पते निकालें।
2. Word दस्तावेज़ से सभी ईमेल पते निकालने के लिए VBA कोड का उपयोग करें।

आइए इन तरीकों के बारे में विस्तार से बात करते हैं!

1] MS Word में Advanced Find विकल्प का उपयोग करके ईमेल पते निकालें

आप Microsoft Word में Advanced Find/ Find and Replace विकल्प का उपयोग करके Word दस्तावेज़ों से सभी ईमेल पते निकाल सकते हैं। यहाँ मुख्य चरण दिए गए हैं:

1. Microsoft Word लॉन्च करें।
2. ईमेल पतों वाला एक Word दस्तावेज़ खोलें।
3. Find > Advanced Find विकल्प पर जाएँ।
4. Find what फ़ील्ड में एक स्ट्रिंग दर्ज करें।
5. Use wildcards चेकबॉक्स को सक्षम करें।
6. Find In > Main Document बटन पर क्लिक करें।
7. मुख्य दस्तावेज़ पर वापस जाएँ और Copy विकल्प का उपयोग करें।
8. एक नया खाली दस्तावेज़ बनाएँ और कॉपी किए गए ईमेल पतों को पेस्ट करें।

अब, आइए इन चरणों को विस्तार से समझते हैं!

सबसे पहले, अपने PC पर Microsoft Word एप्लिकेशन चलाएँ और फिर वह Word दस्तावेज़ इम्पोर्ट करें जिसमें वे ईमेल पते हों जिन्हें आप निकालना चाहते हैं।

अब, Home टैब में, Editing सेक्शन पर जाएँ और Find ड्रॉप-डाउन बटन पर क्लिक करें। फिर, Advanced Find विकल्प पर टैप करें। यह एक Find and Replace डायलॉग बॉक्स खोलेगा।

Find and Replace डायलॉग बॉक्स में, Find टैब से, [A-z,0-9]{1,}\@[A-z,0-9,\.]{1,} स्ट्रिंग को Find what फ़ील्ड में दर्ज करें।

उसके बाद, More बटन दबाएँ जो विभिन्न विकल्प खोलेगा।

अब, Use wildcards चेकबॉक्स को सक्षम करें।

फिर, Find In ड्रॉप-डाउन बटन पर क्लिक करें और Main Document विकल्प चुनें।

जैसे ही आप ऐसा करेंगे, नीचे दिए गए स्क्रीनशॉट में दिखाए अनुसार स्रोत Word दस्तावेज़ में सभी मेल पते हाइलाइट और चयनित हो जाएँगे।

अब आपको Copy बटन पर क्लिक करना है जो Home टैब में मौजूद है। वैकल्पिक रूप से, आप कॉपी हॉटकी यानी Ctrl + C शॉर्टकट कुंजी का भी उपयोग कर सकते हैं। यह Word दस्तावेज़ में मौजूद सभी ईमेल पतों को क्लिपबोर्ड पर कॉपी कर देगा।

इसके बाद, एक खाली Word दस्तावेज़ बनाएँ या Notepad ऐप खोलें और समर्पित विकल्प या Ctrl + V हॉटकी का उपयोग करके कॉपी किए गए ईमेल पतों को पेस्ट करें।

अब आप निकाले गए ईमेल पतों वाले दस्तावेज़ को सेव कर सकते हैं और ईमेल पतों का जैसे चाहें उपयोग कर सकते हैं।

पढ़ें: Office प्रोग्राम में स्प्लैश स्क्रीन को अक्षम कैसे करें।

2] Word दस्तावेज़ से सभी ईमेल पते निकालने के लिए VBA कोड का उपयोग करें

आप Word दस्तावेज़ों से सभी ईमेल पते निकालने के लिए एक साधारण Visual Basic for Applications (VBA) कोड का भी उपयोग कर सकते हैं। यहाँ मुख्य चरण दिए गए हैं:

1. Word ऐप खोलें और फिर स्रोत दस्तावेज़ इम्पोर्ट करें।
2. VBA Editor लॉन्च करें।
3. एक नया मॉड्यूल डालें।
4. ईमेल पते निकालने के लिए VBA कोड दर्ज करें।
5. सभी ईमेल पते निकालने के लिए VBA कोड चलाएँ।

सबसे पहले, Word ऐप खोलें और फिर इनपुट Word दस्तावेज़ इम्पोर्ट करें जिससे आप सभी ईमेल पते निकालना चाहते हैं।

अब, Alt + F11 कुंजी संयोजन का उपयोग करके VBA Editor लॉन्च करें। यदि आपने मेन रिबन पर Developers टैब सक्षम किया है, तो आप Developer टैब पर जा सकते हैं और VBA Editor खोलने के लिए Visual Basic विकल्प पर क्लिक कर सकते हैं।

इसके बाद, VBA Editor विंडो में, Insert मेनू पर जाएँ और Module विकल्प पर क्लिक करें।

उसके बाद, दाएँ भाग में, एडिटर विंडो में नीचे दिया गया VBA कोड दर्ज करें:

Sub ExtractAllEmailAddressesFromDocument() Dim strEmailAddresses As String ' Extract all email addresses in a document. With ActiveDocument.Range With.Find .ClearFormatting .Replacement.ClearFormatting .Text = "[A-z,0-9]{1,}\@[A-z,0-9,\.]{1,}" .Replacement.Text = "" .Forward = True .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute End With Do While .Find.Found strEmailAddresses = strEmailAddresses & .Text & ";" .Collapse wdCollapseEnd .Find.Execute Loop End With ' Open a new document to paste the email addresses. If strEmailAddresses <> "" Then Documents.Add Template:="Normal", NewTemplate:=False, DocumentType:=0 ActiveDocument.Range.Text = strEmailAddresses End If End Sub

फिर, Run मेनू पर जाएँ और Run Macros विकल्प पर क्लिक करें या बस F5 कुंजी दबाएँ। एक Macros डायलॉग विंडो खुलेगी जहाँ आपको बनाए गए मैक्रो का चयन करना होगा और फिर Run बटन पर क्लिक करना होगा।

Run बटन पर क्लिक करते ही, Word दस्तावेज़ से निकाले गए सभी ईमेल पतों के साथ एक नया Word दस्तावेज़ खुल जाएगा।

आप निकाले गए ईमेल पतों वाले दस्तावेज़ को बस सेव कर सकते हैं और आवश्यकतानुसार उनका उपयोग कर सकते हैं।

चूंकि Microsoft Word विभिन्न प्रकार के दस्तावेज़ प्रारूपों का समर्थन करता है, इसलिए इन ईमेल पते निकालने की विधियों का उपयोग गैर-Word दस्तावेज़ों जैसे XML, ODT, आदि के लिए भी किया जा सकता है।

अब पढ़ें: Easy Email Extractor का उपयोग करके ईमेल पते निकालें।