2

我正在使用 Access 2013 并在我想打开带有说明的 Word 文档的表单上创建了一个帮助按钮。这是我尝试过的代码：

Private Sub cmdHelp_Click()
    Dim wrdApp As Word.Application
    Dim wrdDoc As Word.Document
    Dim filepath As String

    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True

    filepath = "C:\...\Handout.docx"
    Set wrdDoc = wrdApp.Documents.Open(filepath)
End Sub

问题是，当我尝试编译时，我在第一行收到一个错误，上面写着“未定义用户定义的类型”

4

2 回答 2

4

这样做并不容易：

Shell "winword ""c:\...\Handout.docx"""

...而不是创建一个对象只是为了打开应用程序？

于 2013-07-31T20:24:43.237 回答
4

请检查您是否在 VBA 环境中设置了对 Word Library 的适当引用。

为此，请遵循以下路径：

Go to VBA Editor >> Menu >> Tools >> References >> 
    Find on the list Microsoft Word XX.X Object Library where 
    XX.X is the highest available number >> 
Check it >> press OK.
于 2013-08-01T19:53:57.167 回答