运行前请确定你的电脑安装了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
公众号
事业单位
当前位置：
公考类
招聘类
各类考试
