Spisie treści
Ten kod sprawdzi, czy aplikacja pakietu Office jest uruchomiona. Jeśli aplikacja nie działa, otwiera aplikację.
Sprawdź, czy aplikacja Microsoft Word jest otwarta
| 1234567891011121314 | Sub Check_If_App_Is_Open()'Sprawdź, czy Microsoft Word działawApp = "Słowo.Aplikacja"Jeśli IsAppRunning(wApp) = True, toMsgBox "Słowo jest uruchomione"W przeciwnym razieMsgBox "Słowo nie działa"'Utwórz nową instancjęUstaw oApp = CreateObject(, wApp)Zakończ, jeśliNapis końcowy |
