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 

相關(guān)文章

vbs實(shí)現(xiàn)的保存剪貼板中的文本并編輯或保存
這篇文章主要介紹了通過(guò)vbs實(shí)現(xiàn)的保存剪貼板中的文本實(shí)現(xiàn)編輯或保存的實(shí)現(xiàn)方法，需要的朋友可以參考下
2014-05-05
VBS基礎(chǔ)篇 - vbscript隊(duì)列
VBS中的隊(duì)列需要使用System.Collections.Queue,包含隊(duì)列的添加元素（入隊(duì)）、刪除元素（出隊(duì)）、遍歷、統(tǒng)計(jì)元素個(gè)數(shù)、清空，需要的朋友可以參考下
2018-05-05
超級(jí)厲害的VBS定時(shí)提醒腳本 Remind.vbs
這個(gè)是我見(jiàn)過(guò)的最有特色的腳本提醒程序了，時(shí)間|提示語(yǔ)，具體使用方法可以參考例子
2008-06-06
用vbs實(shí)現(xiàn)重新啟動(dòng) Internet Explorer
用vbs實(shí)現(xiàn)重新啟動(dòng) Internet Explorer...
2007-03-03
VBS創(chuàng)建正則表達(dá)式對(duì)象的兩種方法
貌似我看過(guò)的 VBScript 書(shū)籍沒(méi)有一本介紹過(guò)這種寫(xiě)法，當(dāng)然，書(shū)上沒(méi)寫(xiě)的東西還有很多
2012-01-01
用vbs實(shí)現(xiàn)的強(qiáng)制殺進(jìn)程的腳本
用vbscript實(shí)現(xiàn)的強(qiáng)制殺系統(tǒng)進(jìn)程的腳本代碼，主要用于一些殺毒軟件，占系統(tǒng)內(nèi)存或cpu，我們可以用下面的方法殺掉，黑人也必須殺掉殺毒軟件，才能進(jìn)行下一步操作，不建議搞破壞。
2008-05-05
VBS教程：正則表達(dá)式簡(jiǎn)介 -選擇與編組
VBS教程：正則表達(dá)式簡(jiǎn)介 -選擇與編組...
2006-11-11
MSScriptControl.ScriptControl組件的用法實(shí)例
這篇文章主要介紹了MSScriptControl.ScriptControl組件的用法實(shí)例,需要的朋友可以參考下
2014-08-08
VBS教程：VBscript語(yǔ)句-For...Next 語(yǔ)句
VBS教程：VBscript語(yǔ)句-For...Next 語(yǔ)句...
2006-11-11
vbs源碼之的IIS日志分析工具
在網(wǎng)上找了很多IIS日志分析工具，功能實(shí)在太有限，有的僅能分析百度、谷歌等搜索引擎爬蟲(chóng)的來(lái)訪次數(shù)，遠(yuǎn)遠(yuǎn)達(dá)不到我們的用戶的需求
2020-09-09