ник: serjvip
Использую позднее связывание.
Option Compare Database
Option Explicit
Public obWord As Object 'сам Word - Application
Public obWindow As Object 'окно документа
Public NomDoc As Long 'номер документа для печати
Public Sub prn_rec()
On Error GoTo Err_prn_rec
Dim faza As String, dizain As String, sponsor As String
Dim fl_zp As Boolean
Dim prom_c As Integer
NomDoc = 0
'Открытие шаблона
'Включаем песочные часы
HourYes "Старт Word"
'Читаем шаблон
Forms!Vvod_dosl.Controls!rec_v_m_sub!Shablon = DLookup("Shablon", "Shablons", "ID = " & 0)
'Запускаем Word с шаблоном
Forms!Vvod_dosl.Controls!rec_v_m_sub!Shablon.Action = acOLEActivate
'Установливаем связь с Word
Set obWord = GetObject(, "Word.Application")
'Запоминаем ссылку на окно с документом
Set obWindow = obWord.ActiveDocument.ActiveWindow
'Максимизируем окно документа
obWindow.WindowState = 1
Затыкается на Set obWindow = obWord.ActiveDocument.ActiveWindow, в дебагере в obWord и obWindow показывает значение Empty, хотя на домашнем комьютере все нормально