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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перемещение по таблице, Как бродить по ячейкам 
V
    Опции темы
DYUMON
Дата 3.3.2007, 19:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
Тут такое дело накатал почти весь курсовой а тут надо из таблицы на форме в вордовскую таблицу данные переправить. Пол ночи про****** а прога падает на месте вставки.
таблицу вставлял так 
 R1:=WordApplication1.Selection.Range;
 r2:=wdWord8TableBehavior;
 Tbl:=wdAutoFitFixed;
Код

wordapplication1.Selection.Tables.Add(R1,6,6,r2,Tbl);
WordApplication1.Selection.SelectRow;
WordApplication1.Selection.Text:='trtertt'+#13+#7 ;
wordapplication1.selection.collapse(direction);
wordapplication1.Selection.MoveLeft(EmptyParam,1,EmptyParam);// <-- так можно?
WordApplication1.Selection.SelectRow;
WordApplication1.Selection.Text:='12345';




--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
Albinos_x
Дата 3.3.2007, 20:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
http://forum.vingrad.ru/topic-84634.html - это читал?

Добавлено @ 20:23 
Цитата(DYUMON @  3.3.2007,  19:34 Найти цитируемый пост)
прога падает на месте вставки.

на месте вставки это тут:
Цитата(DYUMON @  3.3.2007,  19:34 Найти цитируемый пост)
wordapplication1.Selection.Tables.Add(R1,6,6,r2,Tbl);

?
Цитата(DYUMON @  3.3.2007,  19:34 Найти цитируемый пост)
WordApplication1.Selection.Text:='trtertt'+#13+#7

что здесь пытаешся сделать?
Цитата(DYUMON @  3.3.2007,  19:34 Найти цитируемый пост)
WordApplication1.Selection.SelectRow;

зачем выделяешь всю строку?
Цитата(DYUMON @  3.3.2007,  19:34 Найти цитируемый пост)
wordapplication1.Selection.MoveLeft(EmptyParam,1,EmptyParam);// <-- так можно?

чем тебя нормальный способ не устраивает(?):
Код
...
Tbl :=R1.Tables.Add(R1,6,6,EmptyParam,d);
...
S:=Tbl.Cell(1, 1).Range.Text;
...
S:=Tbl.Cell(1, 2).Range.Text;
...



--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
DYUMON
Дата 5.3.2007, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
пробовал я твоим методом но всеравно не идет а курсовой на проверку сдавать 7 марта.
а в чем здесь ошибка
Код

tt:=r1.Tables.Add(R1,6,6,EmptyParam,tb1);
 tt.Columns.Item(0).Cells(0).Range.Text;



--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
Albinos_x
Дата 5.3.2007, 13:54 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
Цитата(DYUMON @  5.3.2007,  13:05 Найти цитируемый пост)
tt.Columns.Item(0).Cells(0).Range.Text;

в том что отчисление в MS Word и Excel идёт от еденицы 1.

Внимательней читайте статью...

Добавлено @ 14:05 
и почему Вы выбрали именно такой метод обращения:
Цитата(DYUMON @  5.3.2007,  13:05 Найти цитируемый пост)
Columns.Item(0).Cells(0).

чем вас не строил приведённый мной:
Цитата(Albinos_x @  3.3.2007,  20:13 Найти цитируемый пост)
.Cell(1, 2).




--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
DYUMON
Дата 6.3.2007, 20:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
Просто я выводил всё от WordApplication1 мне так удобней 
я так тоже пробовал
Код

...
Tbl :=R1.Tables.Add(R1,6,6,EmptyParam,d);
...
S:=Tbl.Cell(1, 1).Range.Text;
...
S:=Tbl.Cell(1, 2).Range.Text;
... 

так он на S ругается  вроде не тот тип переменной


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
Albinos_x
Дата 6.3.2007, 21:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Evil Skynet
****


Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108
ну сделай её OleVariant...


--------------------
"Кто владеет информацией, тот владеет миром"    
Уинстон Черчилль
PM MAIL ICQ   Вверх
DYUMON
Дата 7.3.2007, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
ВСЁ! разобрался и сдал курсовой. Надо было мозгами пошевелить.
кароче получиллась такая штука.

Код

R1:=WordApplication1.Selection.Range;
 r2:=wdWord8TableBehavior;
 Tbl:=wdAutoFitFixed;
wordapplication1.Selection.Tables.Add(R1,6,6,r2,Tbl);
table:=wordapplication1.ActiveDocument.Tables.Item(1);
 // формирование первого столбца
 table.cell(1,1).range.text:= stringgrid1.Cols[0][0];
 table.cell(2,1).range.text:= stringgrid1.Cols[0][1];
 table.cell(3,1).range.text:= stringgrid1.Cols[0][2];
 table.cell(4,1).range.text:= stringgrid1.Cols[0][3];
 table.cell(5,1).range.text:= stringgrid1.Cols[0][4];
 table.cell(6,1).range.text:= stringgrid1.Cols[0][5];



--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
DYUMON
Дата 10.3.2007, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 17.6.2006
Где: Новосибирск

Репутация: нет
Всего: 3
Ну усё тему мона закрывать.


--------------------
Всех программистов надо посадить на целероны, что бы впредь головой думали что пишут.
user posted image
PM MAIL ICQ Skype   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

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

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


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

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

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


 




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


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

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