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的情况下运行它时，我得到＆＃34;运行时间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

使用VBA从MS Access打开MS Word - 429错误

1 个答案: