Из Stringgrid в Word.

[lede88]

У меня проблема. Знаю как вставить одну таблицу в Word из StringGrid.
Но не знаю как после вставить другую из другого Stringgrid.

Вот для одной таблицы:

procedure TForm1.Button1Click(Sender: TObject);
var
  W, Table: Variant;
  Row, Col, i, j: Integer;
begin
  W := CreateOleObject('Word.Application');
  W.Documents.Add;
  W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  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.Visible := True;
end;

Пробовала так, не получается, выдает ошибку:

W.ActiveDocument.Tables.Add(W.ActiveDocument.Range,
  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.Tables.Add(W.ActiveDocument.Range,
  StringGrid2.RowCount, StringGrid2.ColCount);

  Table2 := W.ActiveDocument.Tables.Item(2);
  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];

Пожалуйста, помогите, я чайник!

[Grag]

Глянул поверхностно. По-моему, у тебя проблемы с Range... Этот параметр для документа нужно отслеживать....

В своей программе я добавляю таблицы и работаю с ними так:

              //добавляю таблицу для названия периода отчета...
              //открываю шаблон таблицы периода отчета...
              WordApp.Documents.Open(FileName:=ExeDir+SubGenDir+
                                             'HeaderPeriod.dot',ReadOnly:=true);
              WordApp.Selection.Start:=0;
              WordApp.Selection.End:=WordApp.ActiveDocument.Range.end-1;
              WordApp.Selection.Copy;
              Tbl_Length:=WordApp.ActiveDocument.Characters.Count;
              //закрываю шаблон таблицы периода отчета
              WordApp.ActiveDocument.Close;
              TxtEnd:=WordApp.ActiveDocument.Range.end-1;
              TxtStart:=TxtEnd;
              WordApp.Selection.Start:=TxtStart;
              WordApp.Selection.End:=TxtStart+Tbl_Length;
              WordApp.Selection.Paste;
              TxtEnd:=TxtStart+Tbl_Length;
              TxtStart:=TxtEnd;
              Table:=WordApp.ActiveDocument.Tables.Item(
                                           WordApp.ActiveDocument.Tables.Count);
              Table.Cell(1,1).Range.Text:=cmbData.Text;

Нужно отслеживать не Range, а конец документа...

[lede88]

Спасибо!!

Но как привязать это к моему коду? не получается что-то у меня!

Вставляет вторую таблицу в первую((

[Grag]

Вот еще один пример того, как добавляется таблица в конец документа

procedure TForm1.Button3Click(Sender: TObject);
 var MyRange:variant;
begin
MyRange:=W.ActiveDocument.Range(W.ActiveDocument.Range.End-1,W.ActiveDocument.Range.End-1);
W.ActiveDocument.Tables.Add(Range:=MyRange,NumRows:=2,NumColumns:=3);
W.ActiveDocument.Range.InsertAfter(' ');
end;