联盟域名:www.cn-dos.net 论坛域名:www.cn-dos.net/forum DOS,代表着自由开放与发展,我们努力起来,学习FreeDOS和Linux的自由开放与GNU精神,共同创造和发展美好的自由与GNU GPL世界吧!
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