使用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 

這將編譯，但是當我沒有詞是開放運行它，我得到「運行時間429錯誤：ActiveX組件「T創建對象。

用Word打開，我得到一個新的文檔打開。

我試圖更新引用到ADO 6.0無濟於事。我是新來的VBA所以任何幫助表示讚賞。

Answer 1

通常您可以使用Follow註冊應用程序打開一個文件超鏈接。

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