Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Экспорт в...

Тема: Экспорт в Word на примере la_automat.mdb

15.06.2007 21:10:07

All

4316 сообщения

Тема: Экспорт в Word на примере la_automat.mdb

Здравствуйте. Подскажите пожалуста по поводу экспорта данных в Word.
На базе программы la_automat.mdb создал два Word - документ, как и описывалось (шаблон и обычный) назвал их одинако как и базу, в документе сделал закладки на "Фамилия", "имя", "отчество". В базе создал таблицу с такими же полями, потом разместил на форме и к кнопке привязал данный модуль, соответественно изменив имена файлов на свои, но он выдает ошибку, которую ни как понять немогу в самом начале программы.

Private Sub В_Word_Click() - в этом месте подсвечивваеться желтым цветом

Dim app As Word.Application 'Приложение программы - а тут вообще красным
Dim strDOC As String ' Имя документа
Dim strDOT As String ' Имя шаблона
Dim ctl As Control ' Управляющие элементы в форме
Dim s As String ' Вспомогательная строка

Заранее спасибо.

P.S. События в отчетах
Автор: Le Max от 0:00:00 Источник ...

15.06.2007 21:10:07

Евгений10

73 сообщения

RE: Экспорт в Word на примере la_automat.mdb

Здравствуйте Le Max.
Необходимо проверить ссылки на библиотеки (References), в частности на библиотеку Word'а
Удачи.
Евгений.

P.S. События в отчетах
Автор: Евгений от 30.10.2006 21:55:56 Источник ...

15.06.2007 21:10:07

All

4316 сообщения

RE: Экспорт в Word на примере la_automat.mdb

Спасибо. А если не сложно, а как это, может это и нет так сложно как кажеться для меня, но все - таки кратенько, если не сложно, поподробней, если можно.
Заранее спасибо.

P.S. События в отчетах
Автор: Le Max от 0:00:00 Источник ...

15.06.2007 21:10:07

Sera

1 сообщения

RE: Экспорт в Word на примере la_automat.mdb

меню Tools там References ищете библиотеку Microsoft Word и добавляете ее
Вот моя функция на основе этой:
Public Function ЭкспортВорд(НазваниеШаблона As String, ПоляОтбора As String, НазваниеЗапроса As String, ПараметрЗапроса As Variant)
On Error GoTo err
Dim app As Word.Application
Dim strDOC As String ' Имя документа
Dim strDOT As String ' Имя шаблона
Dim fld As Variant ' определяем поле
Dim s As String
' открываем рекордсет с нужными нам параметрами
Set q = CurrentDb.OpenRecordset("select " & ПоляОтбора & " FROM " & НазваниеЗапроса & " where " & ПараметрЗапроса & "")

With Application.CurrentProject
strDOT = .Path & "\Шаблоны\" & НазваниеШаблона & ".dot" ' получаем название нужного шаблона
strDOC = .Path & "\ФайлыСозданныеПрограммой\" & НазваниеШаблона & ".doc" ' получаем название документа, который будем формировать
End With

' Управление документом Word
Set app = New Word.Application 'Новое приложение Word
app.Visible = True 'Отображаем документ
app.Documents.Add strDOT 'Добавляем шаблон

With app.ActiveDocument 'Выбираем активный документ
On Error Resume Next ' Отключаем ошибки
For Each fld In q.Fields ' просматриваем поля рекордсета
If fld.Value <> 0 Then 'если поле непустое
s = fld.Name ' Определяем название поля
If .Bookmarks.Exists(s) = True Then ' ищем букмарки в документе с таким же именем как и у поля
.Bookmarks.Item(s).Range.Text = fld.Value ' устанавливаем найденым букмаркам занчение поля
End If
err.Clear ' Очищаем поток от ошибки при отсутствии элемента
End If
Next fld ' смотри следующее поле
.SaveAs strDOC ' Сохраняем файл
End With
Exit Function
Exit Function
err:
Call ErrorF

End Function

P.S. События в отчетах
Автор: Sera от 19.11.2006 12:47:59 Источник ...

15.06.2007 21:10:07

All

4316 сообщения

RE: Экспорт в Word на примере la_automat.mdb

Огромное Спасибо. Да это было и не сложно, я попробовыл подключить эту библиотеку, и на удивление теперь все пошло. Кстати, а я до этого все пункты References просмотрел, теперь понял, что плохо смотрел, наверное был не внимательный, потому что уже и на работе за компом сидишь и дома, все расплываеться в глазах.
Еще раз спасибо, очень помогли.

P.S. События в отчетах
Автор: Le Max от 0:00:00 Источник ...

Страница 1 из 2

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: Экспорт в...

Поиск

Список форумов

Начало | Forums