Lang L: none (table-of-contents)
See kood kontrollib, kas Office'i rakendus töötab. Kui rakendus ei tööta, avab see rakenduse.
Kontrollige, kas Microsoft Wordi rakendus on avatud
1234567891011121314 | Alamkontroll_If_rakendus_Avatud ()„Kontrollige, kas Microsoft Word töötabwApp = "Word.Application"Kui IsAppRunning (wApp) = Tõene siisMsgBox "Sõna jookseb"MuiduMsgBox "Word ei tööta"'Looge uus eksemplarMäära oApp = CreateObject (, wApp)Lõpp KuiEnd Sub |