Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Создание отчетов и экспорт в Word / 5 сообщений из 5, страница 1 из 1
21.07.2003, 20:53
    #32214018
Ulyanitsky
Ulyanitsky
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Создание отчетов и экспорт в Word
Прошу помощи у тех, кто познал связь Delphi с Word'ом.

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

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


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