Innholdsfortegnelse
Denne koden sjekker om en Office -app kjører. Hvis appen ikke kjører, åpnes den.
Sjekk om Microsoft Word -programmet er åpent
1234567891011121314 | Sub Check_If_App_Is_Open ()'Sjekk om Microsoft Word kjørerwApp = "Word.Application"If IsAppRunning (wApp) = True ThenMsgBox "Word is running"EllersMsgBox "Word kjører ikke"'Lag en ny forekomstSett oApp = CreateObject (, wApp)Slutt omSlutt Sub |