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]

солько не бьюсь, а проблема остается нерешенной
неужели некому помочь?

Запиши соотв.макрос в Ворде, посмотри его текст, портируй этот текст в Паскаль.

И все !

Делов-то ..

MS WORD Найти похожие ветки