Ovaj kôd će provjeriti radi li aplikacija Office. Ako se aplikacija ne pokreće, ona se otvara.
Provjerite je li aplikacija Microsoft Word otvorena
1234567891011121314 | Podprovjera_Ako_App_Is_Open ()'Provjerite radi li Microsoft WordwApp = "Word.Application"Ako je IsAppRunning (wApp) = Tačno tadaMsgBox "Riječ radi"DrugoMsgBox "Word nije pokrenut"'Izradite novu instancuPostavi oApp = CreateObject (, wApp)Završi akoKraj podm |