Экспорт двух или более таблиц Stringgrid в MS word

[RomanDemidov]

Нужно,экспортировать со Stringgrid в ворд. При этом есть обьект SpinEdit, в котором нужно выбрать количество таблиц(от 1 до 5).С одной таблицей всё получается.Но при 2 уже не работает.Точнее вторая таблица не создаётся, а перезаписывается в первую.Вот код для 2 таблиц:

var
     WordApp, NewDoc, WordTable: OLEVariant;
  W, Table,Table2,Table3,Table4,Table5: Variant;
  Row, Col, i, j: Integer;
begin
Form2.GetFormImage;
 Clipboard.Assign(form2.getformimage);

if k=1 then begin //k-это значение Spinedit
   try
  W := CreateOleObject('Word.Application');
   except
    Exception.Create('Error');
    end;

  W.Documents.Add;

  W.Selection.Font.Size := 12;
  W.Selection.TypeText('');
  W.Selection.Font.Bold := true;
  W.Selection.TypeText(#13#10'');
    W.selection.TypeParagraph;

  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid5.RowCount, StringGrid5.ColCount);

  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid5.RowCount - 1 do
    for j := 0 to StringGrid5.ColCount - 1 do
      Table.Cell(i +1, j+1 ).Range.Text := StringGrid5.Cells[j, i];
  W.Visible := True;
  w.selection.movedown(Unit:=wdline,Count:=4);
  W.selection.TypeParagraph;
    w.selection.paste;
  w.ActiveDocument.SaveAs('C:\Tranzistor.doc');
  end;
  if k=2 then begin
   try
  W := CreateOleObject('Word.Application');
   except
    Exception.Create('Error');
    end;

  W.Documents.Add;

  W.Selection.Font.Size := 12;
  W.Selection.TypeText('');
  W.Selection.Font.Bold := true;
  W.Selection.TypeText(#13#10'');
    W.selection.TypeParagraph;

  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid5.RowCount, StringGrid5.ColCount);

  Table := W.ActiveDocument.Tables.Item(1);
  Table.Style := 'Сетка таблицы';
  for i := 0 to StringGrid5.RowCount - 1 do
    for j := 0 to StringGrid5.ColCount - 1 do
      Table.Cell(i +1, j+1 ).Range.Text := StringGrid5.Cells[j, i];
  W.Visible := True;
  w.selection.movedown(Unit:=wdline,Count:=4);
  W.selection.TypeParagraph;
    W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  StringGrid2.RowCount, StringGrid2.ColCount);

  Table2 := W.ActiveDocument.Tables.Item(1);
  Table2.Style := 'Сетка таблицы';
  for i := 0 to StringGrid2.RowCount - 1 do
    for j := 0 to StringGrid2.ColCount - 1 do
      Table2.Cell(i +1, j+1 ).Range.Text := StringGrid2.Cells[j, i];
  W.Visible := True;
  w.selection.movedown(Unit:=wdline,Count:=4);
  W.selection.TypeParagraph;

    w.selection.paste;

  w.ActiveDocument.SaveAs('C:\Tranzistor.doc');
  end;

[_SERGEYX_]

Весь код не просматривал, но...

if k=1 then 
begin
//отправляем первую таблицу
end;
if k=2 then 
begin
//отправляем вторую таблицу
end;

Может быть так?

if (k = 1) or (k = 2) then //первую отправим в любом случае
if k=2 then // а вторую только если k=2

[Alexei91]

По-моему что-то с Range. Примеры работы в справке Word есть + описание всего этого.

[krGorka]

Здесь нужно , по моему, после добавления в документ второй таблицы W.ActiveDocument.Tables.Add(W.Activ eDocument.Range,
StringGrid2.RowCount, StringGrid2.ColCount); сделать
Table2 := W.ActiveDocument.Tables.Item(2); Т.е создается W.ActiveDocument.Tables.Add коллекция таблиц и к конкретной обращаешься по индексу

[RomanDemidov]

Я так делал, не помогло.Дело действительно в свойстве range первой таблицы,но я не знаю как его задать.