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