Текущий архив: 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.45 MB
Время: 0.025 c