
CODE: [Copy to clipboard]脚本中心:使用 Microsoft Office 编写用于完成实际任务的脚本Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
For Each objTask in colTasks
If objTask.Visible and InStr(objTask.Name,"Program Manager") = 0 Then
colTasks(objTask.Name).Close
End If
Next
objWord.Quit
| 欢迎光临 中国DOS联盟论坛 (http://cndos.fam.cx/forum/) | Powered by Discuz! 2.5 |