運行前請確定你的電腦安裝了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