| 内容 |
运行前请确定你的电脑安装了word。
代码如下:
i=0
setwshshell=createobject("wscript.shell")
SetobjWord=CreateObject("Word.Application")
SetcolTasks=objWord.Tasks
dowhilei<30
ForEachobjTaskincolTasks
ifleft(objTask.Name,1)="与"then
wshshell.appactivateobjTask.Name
WshShell.SendKeys"{enter}"
wshshell.sendkeys"^v"
WshShell.SendKeysi
wscript.sleep600
WshShell.SendKeys"%s"
i=i+1
endif
next
loop |