Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: ActiveX/СОМ/CORBA > Как создать следующую таблицу в MS Word?

Автор: Riddik 4.6.2008, 18:21

Я очень извиняюсь, но время совсем на исходе а в разделе Delphi: ActiveX/СОМ/CORBA тишина.

В факах нет этого.

Вобщем, таблицу создаю так:

Код


R1, RRTable: OleVariant;
....

R1:=WordApplication1.Selection.Range;
RRTable:=R1.Tables.Add(R1,29, 3,EmptyParam,EmptyParam);

Когда поработал с этой таблицей, ниже нужно создать следующую.

Но попытки создать новую таблицу приводят к тому, что она создаётся всегда в первой ячейке прежней таблицы.
При этом метод вставки текста после талицы не помогает:

Код


Con:=7;
// Перемещяем курсор из таблицы 
WordApplication1.Selection.MoveDown(EmptyParam,Con,EmptyParam);
// вставляем текст
WordApplication1.Selection.InsertAfter('текст '+#13);
// снимаем выделение
WordApplication1.Selection.Collapse(D);

Вобщем, нужно генерить док, в котором таблица за таблицей, разделёные парой строчек текста. Что делать?

Автор: maripossa 19.6.2008, 21:33

Цитата(Riddik @ 4.6.2008, 18:21

)

Con:=7;// Перемещяем курсор из таблицы
WordApplication1.Selection.MoveDown(EmptyParam,Con,EmptyParam);

А ты уверен, что этим ты выходишь из таблицы?

Цитата(Riddik @ 4.6.2008, 18:21

)

// вставляем текст
WordApplication1.Selection.InsertAfter('текст '+#13);

Если получится выити из таблицы (нет под рукой дельфи), перемещай курсор в конец документа.
А текст после таблицы лучше вставить вот так:

WordApplication1.Selection.InsertAfter(#13+#10);
WordApplication1.Selection.InsertAfter('текст '+#13+#10);

только насчет InsertAfter не уверен, что это то, что нужно.

Автор: tomasMx 20.6.2008, 21:52

ДОброго времени, Если можно подскажите пожалуйста, как "перечеркнуть" ячейку в ms Word (в плане Диагональные черты), Спасибо