Привет всем. В общем модуле создал процедуру для открытия файла Word:

Public Sub PrintDoc()
   On Error GoTo PrintDoc_Error
     Dim obWord As Object
     Dim obWindow As Object
     
    Forms!MainPanel.SprField = DLookup("SprFiles", "tblSpr", "SprID = " & 1)
    Forms!MainPanel.SprField.Action = acOLEActivate
    Set obWord = GetObject(, "Word.Application")
    Set obWindow = obWord.ActiveDocument.ActiveWindow
    obWindow.WindowState = 1
    obWord.WindowState = 1
    obWord.Activate

   On Error GoTo 0
   Exit Sub

PrintDoc_Error:

    MsgBox "Error " & Err.Number & " (" & Err.Description & ") in procedure PrintDoc of Module Module1"
End Sub

Файл в таблице tblSpr.
При нажатии на кнопку "Открыть справку" формы MainPanel вызывается процедура PrintDoc.
Выдается ошибка (на рисунке). В чем проблема?

https://www.sql.ru/forum/1306760/otkrytie-obekta-ole-word