请教版主和老师这个问题如何解决？

在文档中任意处双击鼠标，会选中一个字或词。如何取消这一功能而移作他用，比如双击后弹出窗体？

将以下代码复制到Word文档的ThisDocument类模块中，光标定位于Document_Open事件中，运行，然后在文档中双击。

Option Explicit
Private WithEvents wdApp As Word.Application    ''''声明一个用于响应Application对象事件的一个变量

Private Sub Document_Open()
''''文档打开时
    Set wdApp = Word.Application    ''''指向Application对象
End Sub

Private Sub wdApp_WindowBeforeDoubleClick(ByVal Sel As Selection, Cancel As Boolean)
    Cancel = True    ''''取消Word内置双击的功能
    MsgBox "Hello Word!"
End Sub

谢谢版主教诲，这个帖子要收藏以后好用