आउटलुक में संदेश लिखते समय कर्सर पर विशिष्ट टेक्स्ट कैसे डालें? 

मान लीजिए, आपके पास कुछ विशिष्ट टेक्स्ट स्ट्रिंग्स हैं जिनका उपयोग ईमेल संदेश लिखते समय अक्सर किया जाता है, इसलिए, आप टेक्स्ट को बार-बार मैन्युअल रूप से टाइप किए बिना स्वचालित रूप से मेल बॉडी में कर्सर की वर्तमान स्थिति में सम्मिलित करना चाहेंगे। इस लेख में मैं इस कार्य को शीघ्रता से हल करने की एक आसान विधि के बारे में बात करूंगा।

VBA कोड के साथ संदेश लिखते समय कर्सर पर विशिष्ट पाठ या वर्तमान दिनांक डालें

VBA कोड के साथ संदेश लिखते समय कर्सर पर विशिष्ट पाठ या वर्तमान दिनांक डालें

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

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

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

वीबीए कोड: कर्सर पर विशिष्ट टेक्स्ट या वर्तमान दिनांक डालें

Option Explicit
Public Sub InsertInfoToSelection()
    Dim xDoc As Word.Document
    Dim xSel As Word.Selection
    On Error Resume Next
    Select Case TypeName(Application.ActiveWindow)
        Case "Explorer"
            Set xDoc = Application.ActiveExplorer.Selection(1).GetInspector.WordEditor
        Case "Inspector"
            Set xDoc = Application.ActiveInspector.WordEditor
    End Select
    Set xSel = xDoc.Application.Selection
    xSel.InsertBefore Format("ExtendOffice")
    Set xDoc = Nothing
    Set xSel = Nothing
End Sub

नोट: उपरोक्त कोड में, ExtendOffice यह वह विशिष्ट टेक्स्ट है जिसे आप सम्मिलित करना चाहते हैं, यदि आपको टेक्स्ट स्ट्रिंग के बजाय वर्तमान दिनांक डालने की आवश्यकता है, तो कृपया इस स्क्रिप्ट में टेक्स्ट बदलें xSel.InsertBefore फ़ॉर्मेट("ExtendOffice") सेवा मेरे xSel.InsertBefore फ़ॉर्मेट (अब, "DD/MM/YYYY").

3. फिर, कोड विंडो सहेजें और बंद करें, एक नया ईमेल बनाएं और संदेश विंडो में क्लिक करें क्विक एक्सेस टूलबार कस्टमाइज़ करें नीचे छोड़ें, और चुनें अधिक आदेश, स्क्रीनशॉट देखें:

4. में आउटलुक विकल्प संवाद बॉक्स, कृपया निम्नलिखित कार्य करें:

(1.) चयन करें मैक्रोज़ से से कमांड चुनें ड्रॉप डाउन;

(2.) आपके द्वारा डाले गए मैक्रो नाम पर क्लिक करें;

(3.) फिर, क्लिक करें इस मैक्रो को इसमें जोड़ने के लिए बटन क्विक एक्सेस टूलबार कस्टमाइज़ करें सूची बाक्स।

5. और फिर, क्लिक करें OK डायलॉग बॉक्स को बंद करने के लिए बटन, अब, मैक्रो आइकन को इसमें डाला गया है क्विक एक्सेस टूलबार कस्टमाइज़ करें. जहां आप टेक्स्ट डालना चाहते हैं वहां कर्सर रखें और फिर इस मैक्रो बटन पर क्लिक करें, विशिष्ट टेक्स्ट एक ही बार में डाला जाएगा, स्क्रीनशॉट देखें:

---

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

आउटलुक के लिए कुटूल - आपके आउटलुक को सुपरचार्ज करने के लिए 100 से अधिक शक्तिशाली सुविधाएँ

🤖 एआई मेल सहायक: एआई जादू के साथ त्वरित प्रो ईमेल - प्रतिभाशाली उत्तरों के लिए एक-क्लिक, सही टोन, बहुभाषी महारत। ईमेलिंग को सहजता से रूपांतरित करें! ...

📧 ईमेल स्वचालन: कार्यालय से बाहर (POP और IMAP के लिए उपलब्ध)  /  ईमेल भेजने का शेड्यूल करें  /  ईमेल भेजते समय नियमों के अनुसार ऑटो सीसी/बीसीसी  /  स्वतः अग्रेषित (उन्नत नियम)   /  स्वतः ग्रीटिंग जोड़ें   /  बहु-प्राप्तकर्ता ईमेल को स्वचालित रूप से अलग-अलग संदेशों में विभाजित करें ...

📨 ईमेल प्रबंधन: आसानी से ईमेल याद रखें  /  विषयों और अन्य लोगों द्वारा घोटाले वाले ईमेल को ब्लॉक करें  /  डुप्लिकेट ईमेल हटाएँ  /  उन्नत खोज  /  फ़ोल्डरों को समेकित करें ...

📁 अनुलग्नक प्रो: बैच सहेजें  /  बैच अलग करना  /  बैच संपीड़न  /  ऑटो सहेजें   /  ऑटो डिटैच  /  ऑटो कंप्रेस ...

🌟 इंटरफ़ेस जादू: 😊अधिक सुंदर और शानदार इमोजी   /  टैब्ड व्यू के साथ अपनी आउटलुक उत्पादकता बढ़ाएँ  /  आउटलुक को बंद करने के बजाय छोटा करें ...

???? एक-क्लिक चमत्कार: आने वाले अनुलग्नकों के साथ सभी को उत्तर दें  /   फ़िशिंग-रोधी ईमेल  /  🕘प्रेषक का समय क्षेत्र दिखाएं ...

👩🏼‍🤝‍👩🏻 संपर्क एवं कैलेंडर: बैच चयनित ईमेल से संपर्क जोड़ें  /  किसी संपर्क समूह को अलग-अलग समूहों में विभाजित करें  /  जन्मदिन अनुस्मारक हटाएँ ...

के ऊपर 100 सुविधाएँ आपके अन्वेषण की प्रतीक्षा करें! अधिक जानने के लिए यहां क्लिक करें।

विस्तार में पढ़ें       मुफ्त डाउनलोड      खरीद फरोख्त