| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > Delphi: ActiveX/СОМ/CORBA > Проблема с передачей в Word |
| Автор: User 17.3.2005, 13:18 |
| Написал программу передачи данных из таблицы (при нажатии на Button) в Word. Но возникла проблема с которой я незнаю как справиться. Суть проблемы. Когда я жму на Button то все окей. Открывается Word, данные передаються. Но если еще раз нажать на Button, то возникает ошибка. Мне необходимо 2 варианта сделать: 1. Как мне програмно открывать следующую страницу Worda при этом чтобы первая не закрывалась 2. При повторном нажатии на Button чтобы первая страница закрывалась, а новая открывалась, естественно с новыми данными. Имеющийся код прилагаю: procedure TForm1.Button1Click(Sender: TObject); var wd: variant; doc: variant; find: variant; begin wd := CreateOLEObject('Word.Application'); //wd.Visible := true; // Сделать видимым Word до формирования отчета doc := wd.Documents.Add(GetCurrentDir()+'\test.doc'); find := doc.Content.Find; find.ClearFormatting; find.Text := '{DATA}'; find.Forward := true; find.Replacement.ClearFormatting; //в строке замены не использовать форматирование find.Replacement.Text := DateToStr(Now); find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM); find := doc.Content.Find; find.ClearFormatting; find.Text := '{FIO}'; find.Forward := true; find.Replacement.ClearFormatting; //в строке замены не использовать форматирование find.Replacement.Text := Table1.FieldValues['NAME']; // на что заменять найденный текст find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM); find := doc.Content.Find; find.ClearFormatting; find.Text := '{OTHESTVO}'; find.Forward := true; find.Replacement.ClearFormatting; //в строке замены не использовать форматирование find.Replacement.Text := Table1.FieldValues['PARI']; // на что заменять найденный текст find.Execute(EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,true,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,2,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM,EMPTYPARAM); wd.Visible := true; // Сделать видимым Word после формирования отчета end; |
| Автор: Akella 17.3.2005, 15:50 |
| Тебе, навеное сюда. http://forum.vingrad.ru/index.php?showforum=89 |
| Автор: Satana 17.3.2005, 18:52 |
| Насколько я понял ты каждый раз когда нажимаешь на батон создаешь объект ворда а этого делать тебе не нада если хочешь по страницам перемещаться. |
| Автор: User 18.3.2005, 09:40 |
| Да это так, но тогда как по другому мне запустить ворд, и создать первую страницу, затем вторую. Хотелосьбы узнать как это можно сделать по другому? |
| Автор: Satana 18.3.2005, 20:06 |
| User Тебе нужно делать так как ты делаешь только сделай проверку на то запущен ли ворд или нет? тогда будет более грамотно работать |