Inhaltsverzeichnis
Dieser Code überprüft, ob eine Office-App ausgeführt wird. Wenn die App nicht ausgeführt wird, wird die App geöffnet.
Überprüfen Sie, ob die Microsoft Word-Anwendung geöffnet ist
1234567891011121314 | Unter Check_If_App_Is_Open()'Prüfen, ob Microsoft Word läuftwApp = "Word.Anwendung"Wenn IsAppRunning(wApp) = True ThenMsgBox "Wort läuft"AndersMsgBox "Wort wird nicht ausgeführt"'Neue Instanz erstellenSetze oApp = CreateObject(, wApp)Ende WennEnd Sub |