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

Question

我有一个非常简单的代码，我正在尝试在微软的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