|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
18.01.2009, 13:45 | #1 |
Форумчанин
Регистрация: 01.08.2008
Сообщений: 383
|
экспорт набора данных из бд в word
Помогите, пожалуйста!Допустим на форме есть опр.набор данных (dbgrid, sql server, ado). Как сделать экспорт этих данных в мс ворд?
Последний раз редактировалось kate158; 18.01.2009 в 13:49. |
18.01.2009, 13:49 | #2 |
delphi-ст!
Форумчанин
Регистрация: 02.01.2009
Сообщений: 825
|
Экспорт информации из базы данных в Word
-------------------------------------------------------------------------------- Автор: Uncle B. Если используешь шаблон, то вариант такой: 1. В шаблоне Word'a в нужные места расставляешь Bookmark (Insert->Bookmark). 2. В проге позиционируешь на этот букмарк и пишешь данные. (WrdApp - TWordApplication) procedure TfrmPToClient.bbCreateClick(Sender: TObject); var InvoiceTemplate: OleVariant; begin // Соединение с OLE-сервером WrdApp.Connect; WrdApp.Visible := True; // выбор шаблона if not FileExists(dlgOpen.FileName) then Exit; InvoiceTemplate := edFileName.Text; // открытие выбраного шаблона в Word'e WrdApp.Documents.Add(InvoiceTemplat e, EmptyParam); WordGotoBookmark('PDate'); WordInsertText(' ' + DateToStr(dtpPDate.Date)); WordGotoBookmark('PNr'); WordInsertText(' ' + edPNr.Text); WordGotoBookmark('PClientName'); WordInsertText(' ' + dmIB_TOIS.tblProject.FieldByName('P rojectClientName').asString); WordGotoBookmark('ContractNr'); WordInsertText(' ' + dmIB_TOIS.tblProject.FieldByName('C LWordGotoBookmark(' ContractDate'); WordInsertText(' ' + dmIB_TOIS.tblProject.FieldByName('C L_ContractDate').asString); WordGotoBookmark('PCargoName'); WordInsertText(' ' + dmIB_TOIS.tblProjectCargo.FieldByNa me('CargoName').asString); WordGotoBookmark('PProjectYear'); WordInsertText(' ' + dmIB_TOIS.tblProject.FieldByName('P ROJECTNOTICEYEAR').asString); WordGotoBookmark('PProjectMonth'); WordInsertText(' ' + arMonths[dmIB_TOIS.tblProject.FieldByName('P ROJECTNOTICEMonth').asInteger]); end; procedure TfrmPToClient.WordGotoBookmark(Book mark: string); var What: OLEVariant; Which: OLEVariant; Count: OLEVariant; Name: OLEVariant; begin What := wdGoToBookmark; Which := unAssigned; Count := unAssigned; Name := Bookmark; WrdApp.Selection.GoTo_(What, Which, Count, Name); end; procedure TfrmPToClient.WordInsertText(Text: string); begin WrdApp.Selection.TypeText(Text); end; В случае, если нужно вывести набор записей (например в вордовскую таблицу), то вариант такой : 1. В шаблоне Ворда рисуешь "болванку" таблицы, делаешь макрос вставки новой строки в таблицу и можно ещё простые макросы перехода по ячейкам таблицы. 2. В проге позиционируешь через Bookmark на первую ячейку, далее в цикле вызываешь вордовский макрос создания новой строки и с помощью макросов перехода по ячейкам вбиваешь данные из набора. Кстати, если будешь делать вывод набора записей - выложи пример, а то теоретически я себе это представляю, а до практики руки не дошли. Проект Delphi World © Выпуск 2002 - 2004
вступлю в команду разработчиков ПО на Delphi
|
18.01.2009, 14:09 | #3 |
Форумчанин
Регистрация: 01.08.2008
Сообщений: 383
|
спасибо, буду творить.)
|
03.06.2010, 20:50 | #4 |
Новичок
Джуниор
Регистрация: 03.06.2010
Сообщений: 1
|
Экспорт информации из базы данных в Word
Доброго времени суток!
У меня схожая проблема.Текст то вывести получилось, а вот изображение никак...(( Может кто что подскажет, буду благодарен.... |
06.11.2013, 16:47 | #5 |
Пользователь
Регистрация: 26.12.2009
Сообщений: 95
|
а можно пример кода на конкретном шаблоне. данные из эдитов в таблицу, самое главное что количество строк не фиксировано, а могут быть больше или меньше, остальной текст заменяется закладками
|
22.11.2013, 14:08 | #6 |
Пользователь
Регистрация: 07.10.2010
Сообщений: 47
|
Народ помогите
нусно изменить цвет строки в таблице в WORD не могу найти параметр |
22.11.2013, 15:00 | #7 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
Я же вроде тебе уже помогал с добавлением строк? С цветом аналогично. Выделаешь нужную ячейку и меняешь цвет. Скинь где и что нужно поменять. Помогу чем смогу.
|
22.11.2013, 15:12 | #8 |
Пользователь
Регистрация: 07.10.2010
Сообщений: 47
|
Код:
параметр найти не могу |
22.11.2013, 15:23 | #9 |
Форумчанин Подтвердите свой е-майл
Регистрация: 01.12.2006
Сообщений: 514
|
я обычно чтобы найти параметр для Word/Excel, запускаю Word/Excel, включаю макросы - запись, делаю руками в самом Word/Excel то что мне надо,
затем стоп макроса и редактирование, и в макросах будет показаны все действия
Пишу на Delphi за еду
|
22.11.2013, 15:27 | #10 |
Пользователь
Регистрация: 07.10.2010
Сообщений: 47
|
клево, я и не знал такое )))
спасибо офигеть как полезно |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Экспорт в Word из Memo | Jene4ka | Общие вопросы Delphi | 5 | 20.10.2016 10:42 |
Экспорт в Word? как сделать? | KingSize | БД в Delphi | 13 | 08.12.2008 12:51 |
экспорт в word | AD_min | Общие вопросы Delphi | 4 | 05.12.2008 14:17 |
копирование определенного набора данных из dbgrid в clipboard | kate158 | Общие вопросы Delphi | 9 | 15.10.2008 18:20 |
Экспорт в Word | Constellation | БД в Delphi | 5 | 15.04.2008 18:47 |