6,850
社区成员
发帖
与我相关
我的任务
分享
Set objShell = WScript.CreateObject("WScript.Shell")
app_window = objShell.run ("C:\test\a.txt")
rem 下面的延时可以根据自己的实际情况予以调整(太小的话容易出错)
WScript.Sleep 1000
objShell.AppActivate app_window
rem 跳到第9行
objShell.SendKeys "^g9{Enter}"
set s= WScript.CreateObject("WScript.Shell")
app_window = s.run ("D:\1.txt")
WScript.Sleep 200
s.AppActivate app_window
rem 下面的参数5就是要跳转的行数
s.SendKeys "^g5{Enter}"