i=0 set wshshell=createobject("wscript.shell") Set objWord = CreateObject("Word.Application") Set colTasks = objWord.Tasks do while i30 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