運行前請確定你的電腦安裝了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
更多信息請查看IT技術專欄
公眾號
事業單位
當前位置：
公考類
招聘類
各類考試
