Открытие MSWord из MSAccess с использованием VBA - ошибка 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"

В противном случае вы можете использовать CreateObject, когда Word не запущен.

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

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

oWord.Visible = True