[lede]

Здравствуйте! Очень нужна помощь!

Необходимо в Word вставить несколько таблиц с данными из разных Stringgrid.
Одну таблицу получается вставить, а следующую - нет.

Код:

uses ComObj
....
procedure TForm1.SpeedButton8Click(Sender: TObject);
var
 W, Table, Table2: Variant;
 Row, Col, i, j: Integer;
 s: string;
begin
//создаем документ
 W := CreateOleObject('Word.Application');
 W.Documents.Add;

//Создаем таблицу. clnum - это моя переменная, которая содержит число строк.
 W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
 clnum+1, main.ColCount-9);

//Выбираем созданную таблицу
 Table := W.ActiveDocument.Tables.Item(1);

//Прорисовываем сетку  
Table.Style := 'Сетка таблицы';

//Загоняем в таблицу данные из StringGrid (main).
 for i := 1 to clnum+1 do
   for j := 1 to 9 do
   begin

// первую колонку таблицы оставляем пустой, так как туда и надо будет загнать то, что прописано в 3-ем пункте.
     Table.Cell(i + 1, j).Range.Text := main.Cells[j, i];

// назначаем стиль таблицы
     Table.Cell(i, j).Range.Font.name:='ISOCPEUR';
     Table.Cell(i, j).Range.Font.size:=11;
     Table.Cell(i, j).Range.Font.italic := 2;
     end;

// В первую ячейку загоняем то, о чем писалось в 3-ем пункте Fg м3
 Table.Cell(1, 1).Range.Select;
 s := 'F';
 W.Selection.TypeText(s);
 W.Selection.Font.Subscript := 1; //врубаем нижний регистр
 s := 'g';
 W.Selection.TypeText(s);
 W.Selection.Font.Subscript := 0; //отрубаем нижний регистр
 s := 'м';
 W.Selection.TypeText(s);
 W.Selection.Font.Superscript := 1; //теперь верхний
 s := '3';
 W.Selection.TypeText(s);
 W.Selection.Font.Superscript := 0; //отрубаем верхний

//открываем ворд
W.Visible := True;

Пробовала в том коде дописать:
 
var
W, Table, Table2: Variant;
...
begin
.....

 W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
4, 5);
 Table2 := W.ActiveDocument.Tables.Item(2);

Admin: Пользуемся тегами!

не получается, надо как-то сделать отступ от 1-ой таблицы