Este código verificará se um aplicativo do Office está em execução. Se o aplicativo não estiver em execução, ele será aberto.
Verifique se o aplicativo Microsoft Word está aberto
| 1234567891011121314 | Sub Check_If_App_Is_Open ()'Verifique se o Microsoft Word está sendo executadowApp = "Word.Application"Se IsAppRunning (wApp) = True entãoMsgBox "Word está em execução"OutroMsgBox "O Word não está funcionando"'Criar uma nova instânciaDefinir oApp = CreateObject (, wApp)Fim seEnd Sub |
