Question

VBS获取所有已经打开的窗口，并输出到1.txt怎么写？

Set objWord = CreateObject("Word.Application")
objword.Visible=false
Set colTasks = objWord.Tasks

For Each objTask in colTasks
If objTask.Visible Then
set fso=createobject("scripting.filesystemobject").opentextfile("1.txt",8)
fso.writeline colTasks
End If
Next
objWord.Quit

按这样写，运行时报错

Answer 1

是不是类型不匹配？
那么fso.writeline colTasks改为fso.WriteLine objTask.Name

另外，最好是这么写

set fso=CreateObject("Scripting.FileSystemObject").OpenTextFile("1.txt",2,1)
Set objWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
For Each objTask in colTasks
    If objTask.Visible Then
        fso.WriteLine objTask.Name
    End If
Next
fso.close
objWord.Quit