Šis kodas patikrins, ar veikia „Office“ programa. Jei programa neveikia, ji atidaro programą.
Patikrinkite, ar „Microsoft Word“ programa yra atidaryta
| 1234567891011121314 | Antrasis patikrinimas_If_App_Is_Open ()„Patikrinkite, ar veikia„ Microsoft Word “wApp = "Word.Application"Jei IsAppRunning (wApp) = Tiesa tada„MsgBox“ „Žodis veikia“Kitas„MsgBox“ „Žodis neveikia“'Sukurkite naują egzemplioriųNustatyti oApp = CreateObject (, wApp)Pabaiga JeiPabaiga Sub |
