Ta koda bo preverila, ali se izvaja aplikacija Office. Če se aplikacija ne izvaja, jo odpre.
Preverite, ali je aplikacija Microsoft Word odprta
| 1234567891011121314 | Sub Check_If_App_Is_Open ()»Preverite, ali Microsoft Word delujewApp = "Word.Application"Če je IsAppRunning (wApp) = True, potemMsgBox "Word teče"Sicer paMsgBox "Word se ne izvaja"'Ustvari nov primerekNastavi oApp = CreateObject (, wApp)Konec ČeEnd Sub |
