Satura rādītājs
Šis kods pārbaudīs, vai darbojas Office lietotne. Ja lietotne nedarbojas, tā atver lietotni.
Pārbaudiet, vai Microsoft Word lietojumprogramma ir atvērta
1234567891011121314 | Sub Check_If_App_Is_Open ()"Pārbaudiet, vai darbojas Microsoft WordwApp = "Word.Application"Ja IsAppRunning (wApp) = PatiessMsgBox "Vārds darbojas"CitādiMsgBox "Vārds nedarbojas"'Izveidojiet jaunu gadījumuIestatīt oApp = CreateObject (, wApp)Beigas JaBeigu apakš |