怎样监听wordApplication的WindowSelectionChange事件

geyuekai

我想要监Word.Application的windowSelectionChange事件，当selection发生改变的时候弹出提示窗口。按照网上教程，我的步骤是这样的：
1.建立类模块，名称为SelectionChange，代码如下：
Option Explicit
//实例化Word.application实例
Public WithEvents App As Word.Application

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox "hello"
    MsgBox Sel.range.Text
End Sub

2.按照教程所说，新建一个模块，在里面加入：
Sub Register_Event_Handler()
    Dim X As New selectionChange
    Set X.App = GetObject(, "Word.Application")
End Sub
这里就是我疑惑的地方：教程里面说，“在运行过程之前，必须将类模块中已声明的对象（本例中为 App）连接到 Application对象。您可在任何模块中使用下列代码”
“任何模块”我觉得很难理解。我运行完之后上面代码之后，并没有能够监听到WindowSelectionChange事件。我怀疑是第二段代码的执行位置有问题。请大家帮我看看问题在哪里，万分感谢。
测试.rar (9.01 KB, 下载次数: 25)

2014-5-12 07:06 上传

点击文件名下载附件

xyz74sc

你的类模块建立好了吗？

geyuekai

xyz74sc 发表于 2014-5-12 08:53
你的类模块建立好了吗？

我觉得已经建立好了。截了一张图：

loquat

在打开事件里面初始化APP
set APP = new Word。application

geyuekai

loquat 发表于 2014-5-12 10:07
在打开事件里面初始化APP
set APP = new Word。application

我在document_open事件调用了一个sub，sub里面初始化了SelectionChange对象，可还是不行。
代码如下：
thisDocument：
Private Sub Document_Open()
    MsgBox "document_open"
    Call Register_Event_Handler2
End Sub

模块1：
Sub Register_Event_Handler2()
Dim x As New SelectionChange2
Set x.App = New Word.Application
End Sub

类模块SelectionChange2：
Option Explicit
Public WithEvents App As Word.Application

Private Sub App_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox "hello"
    MsgBox Sel.Range.Text
End Sub

请大家帮忙看看，谢谢了。

loquat

可能我没有理解楼主意图
我感觉这样不就可以了吗？干嘛写那么多
ThisDocument：
Public WithEvents wdApp As Word.Application
Private Sub Document_Open()
    Set wdApp = GetObject(,"Word.Application")
End Sub
Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox Sel.Range.Text
End Sub

loquat

可能我没有理解楼主意图
我感觉这样不就可以了吗？干嘛写那么多
ThisDocument：
Public WithEvents wdApp As Word.Application
Private Sub Document_Open()
    Set wdApp = GetObject(,"Word.Application")
End Sub
Private Sub wdApp_WindowSelectionChange(ByVal Sel As Selection)
    MsgBox Sel.Range.Text
End Sub

geyuekai

loquat 发表于 2014-5-12 16:22
可能我没有理解楼主意图
我感觉这样不就可以了吗？干嘛写那么多
ThisDocument：

按照你的方法试验了，还是不行。我怀疑是不是我对事件监听的理解不对。我预想的效果是当当前word文档的selection发生变化的时候，监听发生的事件并弹出一个提示信息。是不是不支持这种方法？

loquat

以上我这里是可以的

loquat

如果再不行就应该是我没有理解楼主的意图。。。