运行前请确定你的电脑安装了word。
代码如下:
i=0
set wshshell=createobject(wscript.shell)
set objword = createobject(word.application)
set coltasks = objword.tasks
do while i<30
for each objtask in coltasks
if left(objtask.name,1)=与 then
wshshell.appactivate objtask.name
wshshell.sendkeys {enter}
wshshell.sendkeys ^v
wshshell.sendkeys i
wscript.sleep 600
wshshell.sendkeys %s
i=i+1
end if
next
loop