Этот код проверяет, запущено ли приложение Office. Если приложение не запущено, оно открывает приложение.
Проверьте, открыто ли приложение Microsoft Word
| 1234567891011121314 | Sub Check_If_App_Is_Open ()'Проверьте, запущен ли Microsoft WordwApp = "Word.Application"Если IsAppRunning (wApp) = True, тоMsgBox «Слово выполняется»ЕщеMsgBox «Word не запускается»'Создать новый экземплярУстановите oApp = CreateObject (, wApp)Конец, еслиКонец подписки |
