ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчетов и экспорт в Word
5 сообщений из 5, страница 1 из 1
Создание отчетов и экспорт в Word
    #32214018
Ulyanitsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ulyanitsky
Гость
Прошу помощи у тех, кто познал связь Delphi с Word'ом.

Как открыть имеющийся шаблон RTF или DOC из файла, в котором есть таблицы, заполнить его данными и отправить в Word?
Просто и в то же время кое-кому не по зубам.
Может у кого есть компонент? Поделитель, если кому, конечно, не жалко.
Ответившим заранее благодарен.
...
Рейтинг: 0 / 0
21.07.2003, 20:53
| Ответить | Цитировать | Написать  
Создание отчетов и экспорт в Word
    #32214344
Фотография Mihail R.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mihail R.
Участник
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
var
  msw:variant;

...

  //printing telephones to ms-word
  Screen.Cursor:=crHourGlass;
  msw:=createoleobject('word.application');
  msw.documents.add;
  msw.visible:=true;

  msw.Selection.Style :='Заголовок 1';
//  msw.Selection.Font.Bold := - 2 ;
  msw.Selection.TypeText('Список телефонов: '+TreeView1.Selected.text);
//  msw.Selection.Font.Bold := - 2 ;
  msw.Selection.TypeParagraph;


примерно так.
вообще же смотри хелп по Бейсику.
есть еще такая фича в Ворде как запись макроса, юзай ее.
чтоб открыть шаблон: вроде как у команды:
Код: plaintext
  msw.documents.add

должны быть параметры.
в общем смотри хелп по ВБ
...
Рейтинг: 0 / 0
22.07.2003, 12:00
| Ответить | Цитировать | Написать  
Создание отчетов и экспорт в Word
    #32214951
Ulyanitsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ulyanitsky
Гость
За это, Mihail R., спасибо.
Но хотелось бы немного большего: хотя бы в *существующую* табличку, хранящуюся в файле RTF или DOC, с *несколькими* столбцами, вставить данные (например с TADOQuery), которые брались бы из нескольких таблиц.

Подскажите, please. Ответившим заранее благодарен.
...
Рейтинг: 0 / 0
22.07.2003, 19:14
| Ответить | Цитировать | Написать  
Создание отчетов и экспорт в Word
    #32214957
Дмитрий Мыльников
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Дмитрий Мыльников
Участник
Я однажды видел одну прогу, где подобная процедура делалась через вызов функции "поиск и замена". При этом в нужных местах текста-шаблона расставлялись служебные последовательности символов (типа #001), которые потом находились и заменялись на нужные данные.

Правда, я сейчас вряд ли воспроизведу тот код, который там был. Помню только, что парень, когда писал прогу, пользовался хелпом к VB, а сам Word для поиска и замены делает следующий код в макросе

Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "#001"
.Replacement.Text = "поле данных"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll

А вот как это перевести в Delphi пусть, плз, подскажут те, кто это лучше знает.
...
Рейтинг: 0 / 0
22.07.2003, 19:27
| Ответить | Цитировать | Написать  
Создание отчетов и экспорт в Word
    #32214961
Ulyanitsky
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ulyanitsky
Гость
Спасибо за небольшой совет по поиску и замене, Дмитрий Мыльников. Однако, боюсь, что это не очень красивое решение проблемы (количество строк в таблице смущает).
...
Рейтинг: 0 / 0
22.07.2003, 19:34
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчетов и экспорт в Word
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]