|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
25.09.2011, 11:41 | #1 |
Регистрация: 23.09.2011
Сообщений: 5
|
Работа с word текстом и таблицей.
Люди добрые, никак не могу понять, как из одного word документа вставить текст в мой новый созданый word документ, причем таким образом чтобы этот текст был перед таблицей.
Вот код: procedure TForm1.Button18Click(Sender: TObject); var extend:OLEVariant; begin W := CreateOleObject('Word.Application') ; W.Documents.Add; // как я понял вставлять текст необходимо как-то здесь, но потом почему-то таблица съедает этот текст. Помогите с кодом, пожалуйста! W.ActiveDocument.Tables.Add(W.Activ eDocument.Range, StringGrid1.RowCount, StringGrid1.ColCount); //W.ActiveDocument.Tables.Item(1).Col umns.Item(1).PreferredWidth:=10; W.ActiveDocument.Tables.Item(1).Col umns.Item(1).Width:=20; W.ActiveDocument.Tables.Item(1).Col umns.Item(2).Width:=240; W.ActiveDocument.Tables.Item(1).Col umns.Item(3).Width:=70; W.ActiveDocument.Tables.Item(1).Col umns.Item(4).Width:=70; W.ActiveDocument.Tables.Item(1).Col umns.Item(5).Width:=70; //----------------------------------------------------------- Table := W.ActiveDocument.Tables.Item(1); Table.Style := 'Сетка таблицы'; for i := 0 to StringGrid1.RowCount - 1 do for j := 0 to StringGrid1.ColCount - 1 do begin Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i]; Table.Cell(i + 1, j + 1).Range.Font.Color := ColorToRGB(StringGrid1.Font.Color); Table.Cell(i + 1, j + 1).Range.Font.Name := StringGrid1.Font.Name; end; W.Visible := True; end; |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Работа с таблицей в делфи | Katringv | БД в Delphi | 0 | 19.05.2011 12:24 |
Работа с таблицей StringGrid | Marsel737 | Общие вопросы Delphi | 8 | 31.03.2010 12:24 |
Delphi - работа с Excel таблицей | Zhamie | Общие вопросы Delphi | 3 | 29.07.2009 13:59 |
работа с таблицей | photozaz | БД в Delphi | 4 | 27.09.2008 21:29 |
Работа с таблицей без БД | Гр_ | БД в Delphi | 3 | 06.06.2007 16:31 |