Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Ошибка при формирвании отчета в Word2000 [D7, WinXP]


abhtr ©   (2006-03-10 14:28:00) 

Формируется отчет в Word2000. Все работало. Теперь нет. Выводиться сообщение:

Microsoft Visual Basic
Run-time error '509':
Команда NextCell недоступна, поскольку выделенный фрагмент или его часть не содержится в таблице.

Что случилось не пойму. Единственное, что делал – чистил папку C:\WINDOWS\Temp.
Переинсталляция Word  не помогло.


abhtr   (2006-03-13 11:30:00) [1]

Код взят из http://www.delphimaster.ru/cgi-bin/faq.pl?look=1&id=18-988619885
Ошибка возникает, когда пытается выполниться макрос
StrPCopy(Tv, '[Insert "'+IntToStr(Nn)+'"]
   [NextCell][Insert "'+T[i].Company+'"]'+
  '[NextCell][Insert "'+T.TName+'"]
   [NextCell][Insert "'+T.Cod+'"]
   [NextCell]'+
  '[Insert "'+IntToStr(T.Count)+'"]
   [NextCell]'+
  '[Insert "'+FloatToStr(T.Cena)+'"][NextCell]'+
  '[Insert "'+FloatToStr(T.Count*T.Cena)*+'"]
   [NextCell]')  );
 if not DDE1.ExecuteMacro(Tv, false)
  then begin

Может все дело в том, что я поменял операционку.
Раньше у меня было Win2000 и OfficeXP, теперь стоит WinXP с Office2000.
Хотя после такой смены отчет один раз все-таки сформировался.
Пробовал несколько раз переустанавливать Office2000, ничего не дает. Только теперь новая ошибка, возникает раньше прежней, при попытки выполнить макрос:
 StrCat(Tv, StrPCopy(SS, '[EditBookmark .Name = "Table", .Goto]'));
 if not DDE.ExecuteMacro(Tv,false)

Или Visual Basic криво как-то становиться, или WinXP? НЕ пойму...
Посоветуйте. Что можно попробовать?


YurikGL   (2006-03-11 15:49:00) [2]

Приведи код и на какую строчку выводится это сообщение....
Судя по ошибке, в момент выполнения команды NextCell курсор или выделенная область находится не в таблице.


Наверх

Титульная страница Поиск, карта сайта Написать письмо