वर्ड वीबीए - मैक्रो टू ओपन वर्ड डॉक्यूमेंट

Word दस्तावेज़ खोलें

यह वर्ड वीबीए मैक्रो निर्दिष्ट निर्देशिका से एक शब्द दस्तावेज़ खोलेगा:

Sub OpenDoc() Dim strFile As String strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'अपनी फ़ाइल के पथ में परिवर्तन करें यदि Dir(strFile) "" फिर 'पहले हम जांचते हैं कि दस्तावेज़ मौजूद है या नहीं दिए गए स्थान के दस्तावेज़। स्ट्रफाइल को खोलें, यदि अंत उप हो तो समाप्त करें

अब आप नए खुले दस्तावेज़ के साथ ActiveDocument ऑब्जेक्ट के साथ सहभागिता कर सकते हैं। यह कोड दस्तावेज़ में कुछ टेक्स्ट जोड़ देगा।

ActiveDocument.Range(0, 0).Text = "कुछ टेक्स्ट जोड़ें"

दस्तावेज़ को वेरिएबल में खोलें

आप एक वर्ड दस्तावेज़ भी खोल सकते हैं, इसे तुरंत एक वेरिएबल को असाइन कर सकते हैं:

उप ओपनडॉक () डिम स्ट्रफाइल स्ट्रिंग डिम ओडॉक के रूप में दस्तावेज़ के रूप में strFile = "c:\Users\Nenad\Desktop\Test PM.docm" 'अपनी फ़ाइल के पथ में परिवर्तन करें यदि Dir(strFile) "" फिर 'पहले हम जाँचते हैं कि क्या दस्तावेज़ दिए गए स्थान पर बिल्कुल मौजूद है oDoc = Documents सेट करें। strFile End को खोलें यदि अंत Sub

आपको चर oDoc के माध्यम से दस्तावेज़ के साथ सहभागिता करने की अनुमति देता है:

oDoc.Range(0, 0).Text = "कुछ टेक्स्ट जोड़ें"

आम तौर पर किसी भी बिंदु पर दस्तावेज़ को आसानी से संदर्भित करने की क्षमता प्रदान करते हुए, एक चर के लिए खोलना सबसे अच्छा अभ्यास है।

एक्सेल से वर्ड डॉक्यूमेंट खोलें

यह वीबीए प्रक्रिया किसी अन्य एमएस ऑफिस प्रोग्राम (उदा। एक्सेल) से वर्ड दस्तावेज़ खोल देगी:

उप OpenDocFromExcel () डिम वर्डएप डिम स्ट्रफाइल स्ट्रिंग के रूप में strFile = "c:\Users\Nenad\Desktop\Test PM.docm" सेट वर्डएप = क्रिएटऑब्जेक्ट ("वर्ड। एप्लिकेशन") वर्डएप। डॉक्यूमेंट्स। ओपन स्ट्रफाइल वर्डएप। विजिबल = ट्रू एंड विषय