dinglingxdd 发表于 2009-6-30 16:04:07

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:47

在SendKeys 前增加一行语句:
wordapp.active
激活word对象,让word获得焦点

dinglingxdd 发表于 2009-6-30 16:22:11

呵呵，我后来有加激活语句，不过跟你犯了同一个错误，Acivate拼写错了，呵呵

hsjzfling 发表于 2009-6-30 18:09:07

LS再次拼错。。。

dreamever 发表于 2009-7-1 09:28:11

顶。。。
页: [1]
查看完整版本: SendKeys