怎样监听wordApplication的WindowSelectionChange事件

geyuekai · 发表于 2014-5-13 08:38

本帖最后由 geyuekai 于 2014-5-13 08:57 编辑

loquat 发表于 2014-5-12 23:51
如果再不行就应该是我没有理解楼主的意图。。。

你能描述一下触发事件的过程吗？我希望的结果就是鼠标选中内容发生改变的时候甚至是移动光标的时候就会弹出提示窗口，不知道你是不是这样的效果。
你的附件我下载了，在我这里并没有效果，目前我也不知道是怎么回事。
刚才把文件拷贝到同事电脑上，其实是可以运行的。说明是我本机设置有问题，有可能是宏安全设置。

geyuekai · 发表于 2014-5-14 13:31

非常感谢你的回答

jisx0404 · 发表于 2016-5-27 14:48

loquat 发表于 2014-5-12 17:03
以上我这里是可以的

这个模板下下来是可以用的，结果修改，保存后就不起作用，没反应了

现在和楼主一样了，没反应了

究竟是怎么回事

yjm36 · 发表于 2022-11-14 13:29

Dim X As New selectionChange

Sub Register_Event_Handler()
'Dim X As New selectionChange
Set X.App = GetObject(, "Word.Application")
End Sub
Sub stopCheck()
If Not X.App Is Nothing Then
Set X.App1 = Nothing
End If
End Sub

yjm36 · 发表于 2022-11-14 13:30

将X定义为全局公用变量就行了

		自动登录	找回密码
密码			免费注册

[求助] 怎样监听wordApplication的WindowSelectionChange事件