यह कोड जांच करेगा कि कोई ऑफिस ऐप चल रहा है या नहीं। यदि ऐप नहीं चल रहा है तो यह ऐप खोलता है।
जांचें कि क्या माइक्रोसॉफ्ट वर्ड एप्लीकेशन खुला है
1234567891011121314 | उप चेक_आईएफ_ऐप_Is_Open ()'जांचें कि क्या माइक्रोसॉफ्ट वर्ड चल रहा हैwApp = "वर्ड.एप्लिकेशन"अगर IsAppRunning(wApp) = सही है तोMsgBox "वर्ड चल रहा है"अन्यथाMsgBox "वर्ड नहीं चल रहा है"'नया उदाहरण बनाएँ'oApp सेट करें = CreateObject (, wApp)अगर अंतअंत उप |