运行前请确定你的电脑安装了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