Question

我正在使用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

问题是，当我尝试编译时，我在第一行显示“用户定义的类型未定义”时出现错误

Answer 1

这样做不容易：

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

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

Answer 2

请检查您是否在VBA环境中设置了对Word库的适当参考。

为此，请遵循以下路径：

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.

在Access 2013中使用VBA打开Word文档

2 个答案: