Релиб / Access / Базы данных / экспорт в Word / Latest Posts

RE: экспорт в Word

sloniha — Fri, 18 May 2007 15:46:34 GMT

Уважаемый BoNiM! Спасибо Вам огромное. Все получилось как надо. Не могли бы Вы мне выслать Ваши WMZ-реквизиты, для того, чтобы я имела возможность адекватно Вас отблагодарить? Спасибо.

RE: экспорт в Word

BoNiM — Wed, 16 May 2007 23:08:37 GMT

Вы так все поскрывали, что я решил, что будет быстрее создать для демонстрации новую базу с Вашими данными (см. прикрепленный файл).
Открываете форму, жмете на кнопку, в каталоге C:\InfoControl создается желаемый вордовский документ Proba.doc.
Обратите внимание, что после переноса кода процедуры Кнопка0_Click в свою рабочую базу, строки

'strFilter = ВыборОтчетностиПубликаций
'strName = "НиЦ на " & Me.ДатаС & " от " & Me.ВыборСотрудника.Column(1) & " отдела"

раскомментируйте, а строки

strFilter = ""
strName = "Proba"

удалите.

RE: экспорт в Word

sloniha — Mon, 14 May 2007 23:15:08 GMT

Уважаемый BoNiM! Помогите, пожалуйста. Предмет в аттаче

RE: экспорт в Word

BoNiM — Wed, 09 May 2007 07:57:41 GMT

[quote][b]sloniha (09.05.2007)[/b][hr]Не получается прикрутить отчет с отобранными записями к Recordset. Как это сделать? Подскажите, пожалуйста.[/quote]
И не получится, такая прикрутка в принципе невозможна. Вы должны, как я уже писал, использовать источник записей отчета в качестве источника записей Recordset, при этом, необходимо учитывать фильтр, который, возможно, задается при открытии отчета методом OpenReport.
В крайнем случае, создайте копию базы, удалите из нее все лишнее, не относящееся к вопросу, сожмите, упакуйте архиватором и выложите на форум.

RE: экспорт в Word

sloniha — Wed, 09 May 2007 02:24:33 GMT

Не получается прикрутить отчет с отобранными записями к Recordset. Как это сделать? Подскажите, пожалуйста.

RE: экспорт в Word

sloniha — Mon, 07 May 2007 00:41:50 GMT

Спасибо. Буду пробовать.

RE: экспорт в Word

BoNiM — Mon, 07 May 2007 00:27:20 GMT

Dim rst As Recordset
Set rst = CurrentDb.OpenRecordset(источник, тип, параметры, блокировки) 'См.справку по методу OpenRecordset
Do Until rst.EOF
app.Selection.Text = rst![Нужное_поле_1]
...................................
rst.MoveNext
Loop

RE: экспорт в Word

sloniha — Sun, 06 May 2007 23:26:51 GMT

Как цикл организовать? У меня с рекордсетами не очень :(

RE: экспорт в Word

BoNiM — Sun, 06 May 2007 22:40:40 GMT

Если Вы скачали файл, который я советовал, то у вас есть пример создания документа Word без шаблона.
Тогда вместо строки
[i]app.Selection.Text = Me.Body ' Вставляем текст[/i]
которая находится в процедуре butExecute_Click, создайте Recordset, источником записей которого будет источник записей отчета и, проходя в цикле по записям Recordset`а, выводите требуемую информацию.

RE: экспорт в Word

sloniha — Sun, 06 May 2007 21:26:36 GMT

[quote][b]BoNiM (06.05.2007)[/b][hr][quote][b]sloniha (06.05.2007)[/b][hr]Есть некий набор записей который должен попасть в документ (фильтруется пользователем).[/quote]
Набор записей помещается в Word`овскую таблицу или как?[/quote]

Нет, текст. Из отчета в Word экспортируются три поля - номер рубрики и текст объявления(из запроса) и свободное поле нумирующее записи по порядку внутри рубрики.