ms-access - 使用 VBA 从 MSAccess 打开 MSWord - 429 错误

Question

我在 Ms Access 2010 中尝试了一段非常简单的代码。我想要一个表单上的控件来打开一个 word 文档。我已经尝试了几件事，但我拼凑在一起的最简单的代码如下：

Private Sub CmdWord_Click()

Set wordApp = GetObject(, "Word.Application")

    With wordApp
        .Visible = True
        Set wordDoc = .Documents.Add

    End With

End Sub

这可以编译，但是当我在没有打开 Word 的情况下运行它时，我得到“运行时 429 错误：activex 组件无法创建对象。

打开 Word 后，我打开了一个新文档。

我曾尝试更新对 ADO 6.0 的引用，但无济于事。我是 VBA 的新手，所以任何帮助表示赞赏。

Answer 1

您通常可以使用 FollowHyperlink 打开已注册应用程序的文件。

 FollowHyperlink "z:\docs\word.docx"

否则，您可以在 Word 未运行时使用 CreateObject。

On Error Resume Next
Set oWord = GetObject(,"Word.Application")

If Err.Number <> 0 Then
   Set oWord = CreateObject("Word.Application")
End If

oWord.Visible = True