user_grp, вот аналогичный алгоритм работы с Word:
Private Sub MyDoc()
Dim objWord As Word.Application
DoCmd.Hourglass True
'При возникновении ошибки перейти на следующую строку.
On Error Resume Next
'Попытка установить ссылку на Word, который уже открыт.
Set objWord = Get0bject(, "Word.Application")
' Если истинно, значит, Word не открыт.
If objWord Is Nothing Then
'Запуск новой копии приложения Word.
Set objWord = New Word.Application
'Если истинно, значит, MS Word 8.0 не установлен.
If objWord Is Nothing Then
MsgBox "MS Word 8.0 is not installed on your computer"
End If
End If
'При возникновении ошибки перейти к обработке ошибок
'(Здесь записывается код ErrorHandler)
'Открытие нового документа Word на основе ••блока "Normal.dot".
ObjWord.Documents.Add
'Активизация Word.
objWord.Activate
'Отобразить Word для пользователя.
objWord.Visible = True
.........
.........