Sisällysluettelo
Tämä koodi tarkistaa, onko Office -sovellus käynnissä. Jos sovellus ei ole käynnissä, se avaa sovelluksen.
Tarkista, onko Microsoft Word -sovellus auki
1234567891011121314 | Sub Check_If_App_Is_Open ()'Tarkista, onko Microsoft Word käynnissäwApp = "Word.Application"Jos IsAppRunning (wApp) = Tosi sittenMsgBox "Sana on käynnissä"MuuMsgBox "Sana ei toimi"'Luo uusi esiintymäAseta oApp = CreateObject (, wApp)Loppu JosEnd Sub |