Цей код перевірить, чи працює програма Office. Якщо додаток не запущено, він відкриє його.
Перевірте, чи відкрито програму Microsoft Word
1234567891011121314 | Sub Check_If_App_Is_Open ()«Перевірте, чи працює Microsoft WordwApp = "Word.Application"Якщо IsAppRunning (wApp) = True ТодіMsgBox "Слово працює"ІнакшеMsgBox "Word не працює"'Створіть новий екземплярВстановити oApp = CreateObject (, wApp)Закінчити ЯкщоEnd Sub |