Tento kód zkontroluje, zda je spuštěna aplikace Office. Pokud aplikace není spuštěna, otevře se.
Zkontrolujte, zda je aplikace Microsoft Word otevřená
| 1234567891011121314 | Sub Check_If_App_Is_Open ()„Zkontrolujte, zda je spuštěn Microsoft WordwApp = "Word.Application"Pokud IsAppRunning (wApp) = True ThenMsgBox „Slovo běží“JinýMsgBox „Slovo neběží“`` Vytvořte novou instanciNastavit oApp = CreateObject (, wApp)Konec IfEnd Sub |
