Текущий архив: 2005.11.06;
Скачать: CL | DM;
Вниз
MS WORD Найти похожие ветки
← →
Ardeh (2005-10-14 13:17) [0]в-общем, нужно сделать вроде репорта через word
нашел такой пример работы с таблицой:
try
WordApp := CreateOleObject("Word.Application");
except
Exit;
end;
WordApp.Visible := True;
NewDoc := WordApp.Documents.Add;
iCols := tbl3.recordcount;
iRows := 6;
WordTable := NewDoc.Tables.Add(WordApp.Selection.Range, iCols, iRows);
tbl3.first;
for jGridCols := 2 to iCols do begin
WordTable.Cell(jGridCols, 1).Range.Text:=inttostr(iGridRows);
WordTable.Cell(jGridCols, 2).Range.Text:=tbl3.FieldByName("1").asString;
WordTable.Cell(jGridCols, 3).Range.Text:=tbl3.FieldByName("2").asString;
tbl3.next;
end;
WordApp := Unassigned;
NewDoc := Unassigned;
WordTable := Unassigned;
все отлично, но есть пара вопросов:
во-первых, каким образом я могу задать ширину каждой колонки?
во-вторых, как добавить простой текст до и после этой таблицы? :)
← →
Ardeh (2005-10-14 15:15) [1]солько не бьюсь, а проблема остается нерешенной
неужели некому помочь?
← →
Digitman © (2005-10-14 15:30) [2]Запиши соотв.макрос в Ворде, посмотри его текст, портируй этот текст в Паскаль.
И все !
Делов-то ..
Страницы: 1 вся ветка
Текущий архив: 2005.11.06;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.055 c
