ник: koren
Вот так делаю:
Screen.ActiveForm("Shablon") = DLookup("Shablon", "DocsWord", "ID = " & NomDoc)
Screen.ActiveForm("Shablon").Action = acOLEActivate
Set obWord = GetObject(, "Word.Application")
Set obWindow = obWord.ActiveDocument.ActiveWindow
obWord.WindowState = 2
obWindow.Visible = False
obWord.Visible = False
Не помогает - пока идет программное заполнение документа на экране висит окно с шаблоном.
Если делать пакетную выгрузку - некрасиво получается....