Форумы HiProg.com - MS ACCESS, VBA, VB

ник: час
вот может поможет
Подключение:
Dim ObjWord As Word.Application
Dim rpt As Word.Document

Set ObjWord = New Word.Application ' Подключаем Word
If ObjWord Is Nothing Then ' Проверка наличия его на компутере
MsgBox "MS Word 8.0 is not installed on your computer"
End If



Открытие шаблона:
Set rpt = ObjWord.Documents.Add("C:\gde-to tam\shablon.dot", False, , True)