51Testing软件测试论坛

标题: SendKeys [打印本页]

作者: dinglingxdd 时间: 2009-6-30 16:04
标题: SendKeys
Dim wshshell
Set wordapp=CreateObject("word.application")
Set wshshell=CreateObject("Wscript.Shell")
Set worddocument=wordapp.Documents.Open(Environment("TestDir") & wordname)
wordapp.Visible=True
wordapp.WindowState=1
wshshell.SendKeys "{ENTER}"
运行时发现，Word中未键入Enter键，不知道为什么

作者: dreamever 时间: 2009-6-30 16:05
在SendKeys 前增加一行语句:
wordapp.active
激活word对象,让word获得焦点

作者: dinglingxdd 时间: 2009-6-30 16:22
呵呵，我后来有加激活语句，不过跟你犯了同一个错误，Acivate拼写错了，呵呵

作者: hsjzfling 时间: 2009-6-30 18:09
LS再次拼错。。。

作者: dreamever 时间: 2009-7-1 09:28
顶。。。

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)