Πίνακας περιεχομένων
Αυτός ο κωδικός θα ελέγξει εάν εκτελείται μια εφαρμογή Office. Εάν η εφαρμογή δεν εκτελείται, ανοίγει την εφαρμογή.
Ελέγξτε εάν η εφαρμογή Microsoft Word είναι ανοιχτή
1234567891011121314 | Sub Check_If_App_Is_Open ()«Ελέγξτε αν εκτελείται το Microsoft WordwApp = "Word.Application"Εάν IsAppRunning (wApp) = True ΤότεMsgBox "Το Word τρέχει"ΑλλούMsgBox "Το Word δεν εκτελείται"«Δημιουργήστε ένα νέο παράδειγμαΟρισμός oApp = CreateObject (, wApp)Τέλος εανΤέλος υπο |