![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 31.03.2011
Сообщений: 3
|
![]()
Всем доброго времени суток, у меня такой вопрос,возможно его уже не раз рассматривали, но я не нашел на него ответа. У меня есть программа в ней нужно вывести отчет в документе Word. На форме имеются 24 label и 1 image нужно сохранить это все в одном документе желательно через savedialog. Все что нашел в интернете и как то попробовал реализовать ниже...Получается, что когда я открываю файл отчет.doc открываются два документа в одном картинка в другом label...Помогите пожалуйста=\
procedure TForm4.N4Click(Sender: TObject); var F:textFile; vstart,vend:olevariant; begin assignfile(F,'C:\Отчет.doc'); rewrite(F); writeln(F,Label1.caption,': ',Label13.caption); writeln(F,' '); writeln(F,Label2.caption,': ',Label14.caption); writeln(F,' '); writeln(F,Label3.caption,': ',Label15.caption); writeln(F,' '); writeln(F,Label4.caption,': ',Label16.caption); writeln(F,' '); writeln(F,Label5.caption,': ',Label17.caption); writeln(F,' '); writeln(F,Label6.caption,': ',Label18.caption); writeln(F,' '); writeln(F,Label7.caption,': ',Label19.caption); writeln(F,' '); writeln(F,Label8.caption,': ',Label20.caption); writeln(F,' '); writeln(F,Label9.caption,': ',Label21.caption); writeln(F,' '); writeln(F,Label10.caption,': ',Label22.caption); writeln(F,' '); writeln(F,Label11.caption,': ',Label23.caption); writeln(F,' '); writeln(F,Label12.caption,': ',Label24.caption); writeln(F,' '); closeFile(F); clipboard.Assign(image1.Picture); WordDocument1.Range(vstart,vend).Pa ste; end; |
![]() |
![]() |
![]() |
#2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
![]()
самое простое что можно придумать глядя на ваш код
Код:
программа — запись алгоритма на языке понятном транслятору
|
![]() |
![]() |
![]() |
#3 |
Регистрация: 31.03.2011
Сообщений: 3
|
![]()
Честно говоря не многое изменилось, за исключением того что теперь вместо картинки во втором документе выдается значение label...Но это наверно из за того что я не совсем понял совет насчет vstart vend...
|
![]() |
![]() |
![]() |
#4 |
Участник клуба
Регистрация: 09.11.2007
Сообщений: 1,762
|
![]()
А зачем Вы работаете с Документов офис не через COM?
Прочтите книгу "Василий Корняков Программирование документов и приложений MS Office в Delphi" и у Вас отпадут эти вопросы. |
![]() |
![]() |
![]() |
#5 | |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
![]() Цитата:
программа — запись алгоритма на языке понятном транслятору
|
|
![]() |
![]() |
![]() |
#6 |
Регистрация: 31.03.2011
Сообщений: 3
|
![]()
ааа ок спасибо большое,уже скачал книгу,надеюсь найду все что мне необходимо,большое всем спасибо)
|
![]() |
![]() |
![]() |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
вставка chart в документ word | BLooM | Общие вопросы C/C++ | 0 | 30.11.2009 06:51 |
переделать один документ в другой | Tirendus | Microsoft Office Excel | 4 | 16.04.2009 11:59 |
Вставка картинок в текстовый документ | PONKA | Общие вопросы Delphi | 0 | 04.02.2009 12:54 |
Label и Image | Женька | Помощь студентам | 6 | 03.05.2008 20:47 |