Set Word = CreateObject(“Word.Application”)
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible Then response.Write Task.Name &"
"
Next
Word.Quit
Set word=nothing
set tasks=nothing
本文介绍了一种使用VBA(Visual Basic for Applications)操作Word应用程序的方法,包括创建Word对象、遍历任务并显示可见任务的名称,最后关闭Word。此脚本适用于自动化办公文档处理流程。
Set Word = CreateObject(“Word.Application”)
Set Tasks = Word.Tasks
For Each Task in Tasks
If Task.Visible Then response.Write Task.Name &"
"
Next
Word.Quit
Set word=nothing
set tasks=nothing

被折叠的 条评论
为什么被折叠?