你是想要当前活动窗口的标题框吧?wscript.sleep 5000Set objWord = CreateObject("Word.Application")Set colTasks = objWord.TasksFor Each objTask in colTasks
If objTask.Visible Then
Wscript.Echo objTask.Name
Exit For
End IfNextobjWord.Quit为了你测试方便,程序启动后暂停5秒。你可以选择任意一个窗口作为激活窗口。看看效果如何?...