[alex_rR]

Вот мой текст:

Код:

 WordApplication1.Connect;
      WordApplication1.Documents.Add(EmptyParam, EmptyParam, EmptyParam, EmptyParam);
      WordApplication1.Selection.TypeText(g);
     
      DefaultTableBehavior:= wdWord9TableBehavior;
        AutoFitBehavior:=  wdAutoFitContent;
      Rang_:= WordApplication1.Selection.Range;
      WordApplication1.Selection.Tables.Add(rang_,7,6,DefaultTableBehavior,AutoFitBehavior);
      t1:=WordApplication1.Selection.Tables.Item(1);

      t1.Cell(1,1).Range.Text:='Актив баланса';
      ....
      con:=wdStory;
           WordApplication1.Selection.EndKey(con,EmptyParam);

      WordApplication1.Selection.TypeText('Gfccbd');


           WordApplication1.Selection.EndKey(con,EmptyParam);

       WordApplication1.Selection.Tables.Add(rang_,7,6,DefaultTableBehavior,EmptyParam);
      t2:=WordApplication1.Selection.Tables.Item(2);
      t2.Cell(1,1).Range.Text:='Пассив баланса';
    .....

Ну дак вот, Item(2)-это я так понимаю индекс таблицы, ругается именно тут "запрашиваемый номер семейства не существует"

И еще мелочь, но очень важно: таблица 2 создается выше первой - это
почему так?

Можно конечно так написать, но мелочь остается

Код:

t1:=WordApplication1.Selection.Tables.Add(rang_,7,6,DefaultTableBehavior,EmptyParam);