Mã này sẽ kiểm tra xem Ứng dụng Office có đang chạy hay không. Nếu Ứng dụng không chạy thì nó sẽ mở Ứng dụng.
Kiểm tra xem Ứng dụng Microsoft Word có đang mở không
| 1234567891011121314 | Sub Check_If_App_Is_Open ()'Kiểm tra xem Microsoft Word có đang chạy khôngwApp = "Word.Application"Nếu IsAppRunning (wApp) = Đúng thìMsgBox "Word đang chạy"KhácMsgBox "Word không chạy"'Tạo một phiên bản mớiĐặt oApp = CreateObject (, wApp)Kết thúc nếuKết thúc Sub |
