Inhoudsopgave
Deze code controleert of er een Office-app actief is. Als de app niet actief is, wordt de app geopend.
Controleer of Microsoft Word-toepassing is geopend
1234567891011121314 | Sub Check_If_App_Is_Open()'Controleer of Microsoft Word actief is'wApp = "Woord.Toepassing"Als IsAppRunning(wApp) = True DanMsgBox "Woord loopt"AndersMsgBox "Woord werkt niet"'Maak een nieuwe instantie'Stel oApp = CreateObject(, wApp) inStop alsEinde sub |