| Вопрос: Не загружается Word'овский шаблон из Access | Добавлено: 11.10.07 13:28 |
Автор вопроса:  Дмитрий
|
|
Для передачи данных из Access в Word использую такую процедуру
Option Compare Database Option Explicit Dim obWord As Object Dim obWindow As Object Dim str_Path As String ----------------------------------------- Private Sub КнопкаПечать_Click() str_Path = "c:\Shablon.dot" Set wordApplication = CreateObject("Word.Application") wordApplication.Visible = True Set wordDocument = CreateObject("Word.Document") Set wordDocument = wordApplication.Documents.Add(str_Path) wordDocument.Bookmarks("Дата_исходящего").Select wordApplication.Selection.Text = Me!Дата_исходящего wordApplication.Selection.Collapse wordDocument.Bookmarks("Номер_исходящего").Select wordApplication.Selection.Text = Me!Номер_исходящего wordApplication.Selection.Collapse wordDocument.Bookmarks("Номер_входящего").Select wordApplication.Selection.Text = Me!Номер_входящего wordApplication.Selection.Collapse wordDocument.Bookmarks("Дата_входящего").Select wordApplication.Selection.Text = Me!Дата_входящего wordApplication.Selection.Collapse ... str_Path = "c:\myname.doc" wordApplication.ActiveDocument.SaveAs FileName:=str_Path Set wordDocument = Nothing Set wordApplication = Nothing Access ругается. Говорит что переменная obWindow не определена. На компьютере стоит Access2003, Windows XP SP2. Может кто знает в чем дело? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Дмитрий Вопросов: 4 Ответов: 6 |
Профиль | | #1 | Добавлено: 11.10.07 13:34 |
Вместо obWord и obWindow в описании на самом деле стоят WordApplication и WordDocument. Переписал заголовок не из той базы. 
|
||
Страница: 1 |