|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.06.2010, 21:03 | #1 |
Пользователь
Регистрация: 12.04.2010
Сообщений: 10
|
открыть документ редактора Word, в конец документа добавить таблицу 10*10,
Напишите программу на Дельфи, которая использует MS Office для решения следующей задачи:
открыть документ редактора Word, в конец документа добавить таблицу 10*10, где в каждую ячейку вставить ее индексы, разделенные запятой. В конце сохранить документ. Вот код: uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ShellAPI, ComObj, WordXP, OleServer; procedure TForm1.Button4Click(Sender: TObject); var t,y,word:variant; i,j:integer; begin word:=CreateOLEObject('Word.Documen t'); word.documents.open('C:\000.doc'); y:=word.range(0,0); t:=word.tables.add(y,3,4); for i:=1 to 3 do for j:=1 to 4 do t.cell(i,j).range.insertBefore(IntT oStr(i)+':'+IntToStr(j)); word.document.saveAs('C:\mow.doc'); word.close; Вроде бы раньше работало. Сейчас ошибку выдает http://savepic.ru/1342166.jpg на вот эту строку http://savepic.ru/1329878.jpg. Когда заносишь в комментарий строку word:=CreateOLEObject('Word.Documen t'); и вместо нее пишешь word:=CreateOLEObject('Word.Applica tions'); то при компиляции выходит вот такая http://savepic.ru/1321686.jpg ошибка. На вот эту http://savepic.ru/1322710.jpg строчку У меня у самого Word 2007. Мне нужна работающая прога с компонентами OLE, а не самими значка с вкладки Servers. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Открыть документ WORD | Maxx | Microsoft Office Excel | 0 | 15.02.2010 17:37 |
Как перейти selection-ом в конец документа? | Diego__ | Microsoft Office Word | 4 | 26.08.2009 18:16 |
Добавить данные в документ MS Word из Edit... | ActiveX | Помощь студентам | 1 | 24.05.2009 18:19 |
Как Web документ(htm, mht, и т.д.) открыть через Word? | Yelzhas | Общие вопросы Delphi | 4 | 18.11.2007 20:14 |
Как при запросе открыть таблицу Repair и добавить в неё новые данные, согласно этого листинга. | TitAn | БД в Delphi | 2 | 11.06.2007 10:07 |