阿穆尔虎,务实求真,糖心网
运行前请确定你的电脑安装了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
如对本文有疑问,请在下面进行留言讨论,广大热心网友会与你互动!!
点击进行留言回复
相关文章:
-
-
-
-
用vbs实现文本循环读取
因为测试中需要读取一批url数据进行浏览,其实使用qtp本身的table能实现多种读取方式,但是因为需要tabel是使用excel保存的,在没有...
[阅读全文]
-
-
-
-
-
-
-
网友评论