Таблица с помощью WordApplication

← →
TIF © (2006-10-28 17:51) [0]

Как с помощью WordApplication создать таблицу? Хотя бы простенькую. А то шрифт форматировать умею, а таблицы с помощью Экселя делать приходится

← →
Благодарный слушатель (2006-10-28 17:52) [1]

Правда-правда, расскажите побольше про таблички :)

← →
TIF © (2006-10-28 17:56) [2]

зачем писать мне? я сам не знаю

← →
Благодарный слушатель (2006-10-29 12:07) [3]

var
RowCount,
ColCount: Integer;
W1: TWordApplication;
Vr: OleVariant;

begin
W1 := TWordApplication.Create(Self);
w1.Connect;
Vr := "";
ColCount := 3;
RowCount := 2;
with W1.ActiveDocument.Tables.AddOld(w1.Selection.Range, RowCount, ColCount) do
begin
Columns.Item(1).Width := 16;
Columns.Item(2).Width := 32;
Cell(1, 2).Range.Text := "SomeText";
end;
end;

Таблица с помощью WordApplication Найти похожие ветки