Този код ще провери дали приложение на Office работи. Ако приложението не работи, то се отваря.
Проверете дали приложението Microsoft Word е отворено
| 1234567891011121314 | Sub Check_If_App_Is_Open ()„Проверете дали Microsoft Word работиwApp = "Word.Application"Ако IsAppRunning (wApp) = Вярно, тогаваMsgBox "Word работи"ИначеMsgBox „Word не работи“„Създайте нов екземплярЗадайте oApp = CreateObject (, wApp)Край АкоEnd Sub |
