[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);

[Ildar-tsr]

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

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

Потому что при создании таблицы, курсор остается наверху. А таблица создается под курсором.
Перемещение в конец документа:

Код:

const
  wdStory = 6;
...
WordApp.Selection.EndKey(wdStory);

[alex_rR]

А в моем варианте не так разве, я пользую другой пример, видать не подходить.

[alex_rR]

Подскажите, кто знает, как мне последовательно добавлять текст, таблицу текст, таблицу, картину......Как правильно перемещать курсор, я уже кучу вариантов перепробовал. У меня всегда вторая таблица сверху, может как-то метки какие использовать? Жду очень, полезных советов. Спасибо
Вот я нашел http://www.cyberforum.ru/delphi-begi...read53442.html хороший способ если кому интересно