vb重载word事件（withevents）时遇到问题，欢迎高手进来调试这段代码

Question

希望重载word的事件处理，一个简单的例子如下：引用Microsoft Word Object Library，然后：Option Explicit
Dim WithEvents xWord As Word.Application
Private Sub Form_Load()
    Set xWord = New Word.Application '''这里出错
    xWord.Visible = True
End SubPrivate Sub xWord_Quit()
    msgbox "quit"
End Sub谁能把它调通，高分赠送！

Answer 1

调试通过，您没有在工程中引用Microsoft Word 9.0 Object Library

Answer 2

还有Dim WithEvents xWord As Word.Application应改为
Dim xWord As Word.Application

Answer 3

我已经发现这是版本的问题了。MS office\office\msword9.olb和\office10\msword.olb分别对应9.0和10.0的library。目前对10.0（office XP）的支持还不好。