Несколько таблиц в Word

[FearDog]

Здравствуйте. Мне нужно создать две таблицы в Word. При нажатии на должо происходить примерно так:

1. Создается название первой таблицы
2. Создается первая таблица и заполняется из StringGrid1
3. Создается название второй таблицы
4. Создается вторая таблица и заполняется из (для упрощения) StringGrid1

Но у меня заполняется только первая таблица, а вторая доже рамку не имеет.
Вот код:

var
  W, Table, MyRange: Variant;
  Row, Col, i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Selection.TypeText('Таблица 1');
  MyRange := W.ActiveDocument.Range(W.ActiveDocument.Range. End - 1,
    W.ActiveDocument.Range. End - 1);
  W.ActiveDocument.Tables.Add(MyRange, StringGrid1.RowCount,
    StringGrid1.ColCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.ActiveDocument.Range.InsertAfter('');
  W.ActiveDocument.Range.InsertAfter('Таблица 2');
  MyRange := W.ActiveDocument.Range(W.ActiveDocument.Range. End - 1,
    W.ActiveDocument.Range. End - 1);
  W.ActiveDocument.Tables.Add(MyRange, StringGrid1.RowCount,
    StringGrid1.ColCount);
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  W.Visible := True;

Заранее спасибо.

[alex97]

Сообщение от FearDog

Здравствуйте. Мне нужно создать две таблицы в Word. При нажатии на должо происходить примерно так:

1. Создается название первой таблицы
2. Создается первая таблица и заполняется из StringGrid1
3. Создается название второй таблицы
4. Создается вторая таблица и заполняется из (для упрощения) StringGrid1

Но у меня заполняется только первая таблица, а вторая доже рамку не имеет.
Вот код:

var
  W, Table, MyRange: Variant;
  Row, Col, i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.Selection.TypeText('Таблица 1');
  MyRange := W.ActiveDocument.Range(W.ActiveDocument.Range. End - 1,
    W.ActiveDocument.Range. End - 1);
  W.ActiveDocument.Tables.Add(MyRange, StringGrid1.RowCount,
    StringGrid1.ColCount);
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  W.ActiveDocument.Range.InsertAfter('');
  W.ActiveDocument.Range.InsertAfter('Таблица 2');
  MyRange := W.ActiveDocument.Range(W.ActiveDocument.Range. End - 1,
    W.ActiveDocument.Range. End - 1);
  W.ActiveDocument.Tables.Add(MyRange, StringGrid1.RowCount,
    StringGrid1.ColCount);
  for i := 0 to StringGrid1.RowCount - 1 do
    for j := 0 to StringGrid1.ColCount - 1 do
      Table.Cell(i + 1, j + 1).Range.Text := StringGrid1.Cells[j, i];
  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  W.Visible := True;

Заранее спасибо.

Когда вторую таблицу создаешь 1 меняешь на 2:
Table := W.ActiveDocument.Tables.Item(1);
Table := W.ActiveDocument.Tables.Item(2);
2 таблица - это второй элемент, у меня 2 таблицы работают, нет проблем.