Tabla de contenido
Este código verificará si se está ejecutando una aplicación de Office. Si la aplicación no se está ejecutando, la abre.
Compruebe si la aplicación de Microsoft Word está abierta
| 1234567891011121314 | Sub Check_If_App_Is_Open ()'Compruebe si Microsoft Word se está ejecutandowApp = "Word.Application"Si IsAppRunning (wApp) = True EntoncesMsgBox "Word se está ejecutando"DemásMsgBox "Word no se está ejecutando"'Crea una nueva instanciaEstablecer oApp = CreateObject (, wApp)Terminara siEnd Sub |
