vbs另类关闭窗口方法

strWindowTitle="QQ2009;计算器;close.vbs - 记事本" '要关闭的窗口标题多个用;分隔开
Set bjWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
strWindowTitles=Split(strWindowTitle,";")
For Each strTitle In strWindowTitles
 If colTasks.Exists(strTitle) Then
  strAnswer=MsgBox("发现指定窗口【"&strTitle&"】是否关闭？",vbYesNo+vbQuestion,"")
  If strAnswer=vbYes Then
   colTasks(strTitle).Close
  End If
 End If
Next
objWord.Quit