Acest cod va verifica dacă o aplicație Office rulează. Dacă aplicația nu rulează, atunci deschide aplicația.
Verificați dacă aplicația Microsoft Word este deschisă
1234567891011121314 | Sub Check_If_App_Is_Open ()'Verificați dacă Microsoft Word ruleazăwApp = "Word.Application"Dacă IsAppRunning (wApp) = True atunciMsgBox „Cuvântul rulează”AltfelMsgBox „Cuvântul nu rulează”'Creați o nouă instanțăSet oApp = CreateObject (, wApp)End IfSfârșitul Sub |