Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Как создать следующую таблицу в MS Word? 
:(
    Опции темы
Riddik
Дата 4.6.2008, 18:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 598
Регистрация: 2.12.2006

Репутация: нет
Всего: нет
Я очень извиняюсь, но время совсем на исходе а в разделе 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);



Вобщем, нужно генерить док, в котором таблица за таблицей, разделёные парой строчек текста. Что делать?
PM MAIL   Вверх
maripossa
Дата 19.6.2008, 21:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 4
Регистрация: 14.3.2008

Репутация: нет
Всего: нет
Цитата(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 не уверен, что это то, что нужно.

Это сообщение отредактировал(а) maripossa - 19.6.2008, 21:37
PM MAIL   Вверх
tomasMx
Дата 20.6.2008, 21:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 1
Регистрация: 20.6.2008

Репутация: нет
Всего: нет
ДОброго времени, Если можно подскажите пожалуйста, как "перечеркнуть" ячейку в ms Word (в плане Диагональные черты), Спасибо
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0405 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.