Преглед садржаја
Овај код ће проверити да ли је покренута Оффице апликација. Ако апликација није покренута, она се отвара.
Проверите да ли је апликација Мицрософт Ворд отворена
1234567891011121314 | Суб Цхецк_Иф_Апп_Ис_Опен ()„Проверите да ли Мицрософт Ворд радивАпп = "Ворд.Апплицатион"Ако је ИсАппРуннинг (вАпп) = ТачноМсгБок "Ворд ради"ИначеМсгБок "Ворд не ради"'Креирајте нову инстанцуПостави оАпп = ЦреатеОбјецт (, вАпп)Крај АкоЕнд Суб |