Question

vb怎么感知word文档翻到最后了一页?

vb程序通过sendkeys "{pgdn}" 把word文档翻到了最后一页。这时，怎么让vb程序弹出一个msgbox，提示文档已经到最后一页？
翻页的动作代码有了，可以一页页去翻页的。但翻到最后一页时，代码会继续不停地翻。怎样让程序知道翻到了最后一页，提示说：到了最后一页，并自动停止翻页的动作
另外，是否应该是能够判断word文档的滚动条到了最下方？

Answer 1

AppActivate "123.doc - Microsoft Word" 'Word的标题
Sendkeys "^{End}" 'word文档翻到了最后一页

追问

1、你这是让它翻到最后一页，我是意思是翻页的动作代码有了(见提问的补充)，可以一页页去翻页的。但翻到最后一页时，代码会继续不停地翻。怎样让程序知道翻到了最后一页，提示说：到了最后一页，并自动停止翻页的动作？
2、是不管哪个文档都可以处理的。如果代码中要标明123.doc，那么更换了文档，要修改代码？

追答

1. 用API查找到Word里的（垂直）ScrollBar，再用API获取到其Info，判断其pos是否等于Max就知道是否到最后一页了。
2. AppActivate后面的参数你可以用字符变量来代替。

追问

我是初学者，你说的我不好做啊，请帮助一下，加分！

追答

1.
用GetForegroundWindow or EnumWindows获得Word程序的句柄。用GetNextWindow获得类名为“ScrollBar”且是SB_VERT类型的垂直滚动条。
打开Word进程，读取垂直滚动条信息再作判断。
（我用API不多。关于读取信息，我也不是很懂，只听别人说过，具体思路是这样）

另外，有一个办法可以不用去做上面的复杂工作：思路就是比较发送换页字符前后的Word（Picture）变化。这个好像简单点，不过速度可能有一点点慢。

2.
Dim s As String
s="123.doc - Microsoft Word"
's=Text1.Text

AppActivate s

Answer 2

不需要用模拟的按键把文档翻到最后一页吧 加我百度HI吧

追问

怎么联系不上了

追答

？？

Answer 3

if语句就好了啊
true就msgbox
至于msgbox的参数
看一眼书就好了

Answer 4

就用sendkeys这样的臭手还想做木马?