Ошибка Class does not support automation or does not support expected interface.

medium
Дата: 03.03.2016 17:28:09
Access 2003.
Создал чистую базу.
Создал модуль. В нём две простейшие процедуры.
Option Compare Database
Option Explicit
Sub TEST()
Dim WordApp As Word.Application
Set WordApp = New Word.Application
End Sub
Sub TEST1()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
End Sub

Установил References

Microsoft Word 11.0 Object Library
Создал формочку, с кнопками, вызывающими каждую из процедур.
Процедура TEST работает с ошибкой, указанной в заголовке(Class does not support automation or does not support expected interface).
Процедура TEST1 работает без ошибок.

Операционная система VISTA
В референсах проекта нет ни ДАО, ни АДО.

На других компьютерах - работает нормально.
Аксесс, когда-то активно использовал, но уже лет 5 не трогал, а тут пришлось столкнуться.
Пожалуйста, подскажите, в какую сторону смотреть?
Прошу не пинать за то, что невнимательно читал кучу материала по ошибке, имевшегося на форуме, поскольку по диагонали прочёл, что основные проблемы связаны с ADO.
MrShin
Дата: 03.03.2016 19:30:57
Похоже на проблему с установкой Офиса.

А так работает?

Sub TEST2()
Dim WordApp As Word.Application
Set WordApp = CreateObject("Word.Application")
End Sub
ПЕНСИОНЕРКА
Дата: 03.03.2016 20:05:25
medium,

попробуйте так, что бф видеть приложение
Sub TEST()
Dim WordApp As Word.Application
Set WordApp = New Word.Application
WordApp.Visible = True

End Sub
Sub TEST1()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True

End Sub
medium
Дата: 04.03.2016 13:11:51
MrShin, Нет, не работает Ошибка Type mismatch
ПЕНСИОНЕРКА, ошибка в процедуре Testпроисходит на команде Set....
При выполнении
Sub TEST1()
Dim WordApp As Object
Set WordApp = CreateObject("Word.Application")
WordApp.Visible = True
End Sub

Приложение MS Word становится видимым....