[求助]：怎么在WORD文档中设置鼠标CLICK事件

kaconer

在一个已经完成的WORD文档中，我想用鼠标点击文档的页面，弹出一个自定义对话框，我的想法是这样的，
在菜单中定义一个按钮，当点击完按钮，将鼠标移动到文档编辑区的时候，点击鼠标左键，便能弹出一个提示对话框。
这一步怎么用VBA来解决。哪位大虾能介绍一下你宝贵的建议！小第在这先谢过各位。

efan2000

捕捉鼠标左键单击的事件恐怕你要失望了。
在Word中仅可以捕捉鼠标双击和右键单击的事件。方法是声明一个带事件的应用程序级对象（Application），如：Private WithEvents wdApp As Application，然后在按钮的宏中初始化它，Set wdApp = ThisDocument.Application，在事件的过程中放入自己的代码，怎么控制就要看你自己了。

2. 
   
3.   [FONT=courier new]
   
4. Private WithEvents wdApp As Application '声明一个模块级的变量
   
5. 
   
6. Set wdApp = ThisDocument.Application '放在按钮的宏过程中
   
7. 
   
8. Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
   
9.     MsgBox "鼠标双击事件触发！"
   
10. End Sub
    
11. 
    
12. Private Sub wdApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
    
13.     MsgBox "鼠标右键单击事件触发！"
    
14. End Sub
    
15. 
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> Private WithEvents wdApp As Application '声明一个模块级的变量<br /> <br /> Set wdApp = ThisDocument.Application '放在按钮的宏过程中<br /> <br /> Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)<br />     MsgBox "鼠标双击事件触发！"<br /> End Sub<br /> <br /> Private Sub wdApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)<br />     MsgBox "鼠标右键单击事件触发！"<br /> End Sub<br /> <br />   [/FONT]<br />

kaconer

可以了，根据你的提示我总算找到了正确的方法，开始的时候只添加了你给我的代码，用鼠标点还是没有反映，后来我通过帮助文档发'现
Dim X As New Class_Mouse_Click         'Class_Mouse_Click为定义的类名
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub
加了这个以后变可以实现了。这次真是太感谢你了。

i_want_2

到底怎样解决，能否贴个代码看看？

kaconer

最初由 i_want_2 发布
[B]到底怎样解决，能否贴个代码看看？ [/B]

建立一个类，其名字是EventClassModule
在这个类中插入这样的代码
Public WithEvents App As Word.Application
Private Sub App_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
'鼠标双击事件
msgbox"鼠标双击事件"
End Sub
添加一个模块在其中加入一下代码
Dim X As New EventClassModule
Sub Register_Event_Handler()
    Set X.App = Word.Application
End Sub
Sub Crt_buttom()
'建立按钮菜单
    Dim cmbNewMenu As CommandBar
    Dim ctlPopup As CommandBarPopup
    Set cmbNewMenu = Application.CommandBars("鼠标双击菜单")
    With cmbNewMenu.Controls
        Set ctlPopup = .Add(Type:=msoControlPopup, _
            Before:=1)
        With ctlPopup
            .Caption = "弹出窗口"
            With .Controls.Add           
                .Caption = "运行(&C)"
                .OnAction = "Register_Event_Handler"
            End With
        End With
    End With               
cmbNewMenu.Visible = True  
End Sub

呵呵，这个你看看呢！我是把我做的东西改了一下，但没有运行过，你自己运行一下看看吧。应该没有什么问题。斑竹看了我的代码发表点你的看法呢：）

efan2000

在VB中，启动Word时，将Application.Visible = True，它才会显示Word，其余的文档操作，再补充完整就可正常使用。关于菜单和工具栏的操作还要放到VBA中来处理。

i_want_2

好像这样也是只能捕捉到双击事件，不能捕捉到单击事件啊！

efan2000

单击用WindowBeforeRightClick，它是触发鼠标右键单击时的事件。

kaconer

单击怎么搞顶啊？好烦哦！

efan2000

跟双击一样啊，下面是在Word中的代码，拷贝到ThisDocument中，首先运行Test过程，再在文档上用鼠标右键单击试试发生了什么情况。

2. 
   
3.   [FONT=courier new]
   
4. 
   
5. Private WithEvents wdApp As Application '声明一个模块级的变量
   
6. 
   
7. Sub test()
   
8.     Set wdApp = ThisDocument.Application
   
9. End Sub
   
10. 
    
11. Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
    
12.     MsgBox "鼠标双击事件触发！"
    
13. End Sub
    
14. 
    
15. Private Sub wdApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)
    
16.     MsgBox "鼠标右键单击事件触发！"
    
17. End Sub
    
18.   [/FONT]
    

<br />   [FONT=courier new]<br /> <br /> Private WithEvents wdApp As Application '声明一个模块级的变量<br /> <br /> Sub test()<br />     Set wdApp = ThisDocument.Application<br /> End Sub<br /> <br /> Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)<br />     MsgBox "鼠标双击事件触发！"<br /> End Sub<br /> <br /> Private Sub wdApp_WindowBeforeRightClick(ByVal Sel As Selection, Cancel As Boolean)<br />     MsgBox "鼠标右键单击事件触发！"<br /> End Sub<br />   [/FONT]<br />

kaconer

我发觉只要那个TEST（）函数一运行，无论什么时候只要单击右键，双击左键都会触发这两个事件，如果我想只用一次后，后面取消这个功能，那怎么办？

efan2000

将Application对象设置为Nothing即可。如：Set wdApp = Nothing。这时就不会触发事件的，因为wdApp对象已经无效。