Delphi word таблица в таблице

И снова здравствуйте!!

Помогите пжл решить такую проблему. Из программы создаю Word-кий документ, в котором сначала идет какой-то небольшой текст, а после него надо вставить таблицу с данными. Так вот, после длительного поиска нашел только как вставить таблицу на чистый лист, а мне надо ее вставить после какой-либо строки.

Подскажите пожалуйста как это можно сделать?

Заранее благодарен.

Пример вставки таблицы, параграфов

procedure TForm1.Button1Click(Sender: TObject);

begin

// если заголовок «Выход», то закрываем программу

if button1.caption=»Выход» then

begin

Application.Terminate;

exit

end

// иначе (при первом начатии, когда у нас заголовок «Старт»)

//переименовываем заголовок в «Выход»

else button1.caption:=»Выход»;

panel1.Visible:=true;

// создаем экземпляр ворда

WordApp:=CoApplication_.Create;

// делаем его видимым

WordApp.Visible:=true;

// шаблон

template:=»Normal»;

// создать шаблон

OpenAsTemplate:=false;

// что-то типа оператора with, можно было и напрямую обратиться

Docs:=WordApp.Documents;

// добавляем документ

Doc:=Docs.Add(template,OpenAsTemplate);

// выделить все

ARange:=Doc.Range(EmptyParam,EmptyParam);

// массив параграфов

pars:=doc.Paragraphs;

// переменная — параметр

template:=arange;

// новый параграф

par:=pars.Add(template);

// цвет зеленный

par.Range.Font.ColorIndex:=11;

// вставляем текст

par.Range.InsertBefore(«Привет !!!»);

// переменная — параметр

template:=par.Range;

// новый параграф, чтобы таблица не потерла текст

par:=pars.Add(template);

// цвет черный

par.Range.Font.ColorIndex:=0;

// вставляем текст

par.Range.InsertBefore(«Переключившись в программу, можно программно менять текст ячеек !»);

// переменная — параметр

template:=par.Range;

// новый параграф, чтобы таблица не потерла текст

par:=pars.Add(template);

// выделяем параграф

arange:=par.Range;

// шрифт — жирный

ARange.Font.Bold:=1;

// шрифт — рукописный

ARange.Font.Italic:=1;

// получить массив таблиц

tabls:=aRange.Tables;

// добавляем новую таблицу размером 5 на 5

tabl:=tabls.Add(arange,5,5);

// в цикле

for i:=1 to 5 do

// задаем значение ячеек

tabl.Cell(i,1).Range.Text:=inttostr(i);

end;

Завершающие действия, сохранение файла

procedure TForm1.FormDestroy(Sender: TObject);

var

// для параметров

SaveChanges:olevariant;

begin

// если Word не закрыт

if not VarIsEmpty(WordApp) then begin

{ а можно сохранить автоматом:

// имя файла в оле

template:=»Имя.doc»;

// если не сохранен, то

if doc.Saved=false then

// сохраняем

Doc.SaveAs(template, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam);

короче, пишешь имя объекта, ставишь точку и нажимаешь

«ctrl»+» » и изучаешь существующие методы и св-ва

}

//изменения не сохранять

SaveChanges:=false;

// то закрыть сначала документ

Doc.Close(SaveChanges,EmptyParam,EmptyParam);

// а потом и ворд

WordApp.Quit(SaveChanges,EmptyParam,EmptyParam)

end;

За код конечно спасибо, хорошая штука.

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

Method "Range" not supported by automation object

и честно говоря не представляю как от этого избавиться, не подскажешь?

Да ну?

А попробуйте не примерно так, а именно так. Вроде на первый взгляд тут все правильно….

Хотя не проверял.

Н оу меня есть опять же похожий код, где все нормально. Только таблиц я там не добавляю — читаю и подправляю текст в существующих.

И, к стати, а в каком именно месте у вас ошибка? Для какого именно объекта он не находит Range?

Ну именно так не получится, переменные разные, опять же разный текст вставляется, и т.д. :-)))

И кстати, с текстом у меня тоже все нормально, и вставляется и редактируется, и все что надо делается, а вот в этой операции:

> tabl:=tabls.Add(arange,5,5);

и возникает эта ошибка.

Хорошо еще помогает включение записи действий в VBA макрос. А потом разбор данного макроса.

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

> Романов Р.В. ©

Был я на королевстве, читал. Там есть: как создать таблицу на весь (причем на чистый) лист, как ее редактировать, как превратить в таблицу определенным образом отредактированный текст (кстати, как его так определенно отредактировать тоже не сказано). Кстати в ответе
KSergey описано тоже самое, только более понятно. Но нигде нету ответа на мой вопрос.