VPF::ошибка MS Word - Форум программистов

marhatter

Дата 6.12.2009, 18:47 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Здравствуйте. Есть приложение, работающее с MS Word. Суть - открываем WORD, читаем данные из таблички, передаем эти данные в запрос, закрываем WORD. Проблема следующая - на некоторых файлах *.doc выскакивает ошибка "MS WORD обнаружило ошибку. Приложение будет закрыто. ... Восттановить документ и перезапустить...".

Код


......
repeat
        begin
          if (sr.Attr and faAnyFile) = sr.Attr then
          begin
            try
              MsWord := CreateOleObject('Word.Application');
            except
              ShowMessage('MS Word не установлен');
            end;
          path1 := path_to_word + sr.Name;
          Doc := MsWord.Documents.Open(FileName := path1, ReadOnly := true);
          tab := MsWord.ActiveDocument.Tables.Count;
          for i := 1 to tab do
          begin
            tbl := Doc.Tables.Item(i);
            if (trim(Tbl.Cell(1,1).Range.Text) = 'Фамилия') then
            begin
              count := Tbl.Rows.Count;
              for j := 2 to count do
              begin
                name_c := trim(Tbl.Cell(j,2).Range.Text);
                family_c := trim(Tbl.Cell(j,1).Range.Text);
                father_c := trim(Tbl.Cell(j,3).Range.Text);
                number := trim(Tbl.Cell(j,6).Range.Text);
                d_rozd := Trim(Tbl.Cell(j,4).Range.Text);
                // обработка данных, полученных из таблицы
                // запрос 
                //........           
              end;
            end;
          end;
          MsWord.Document.Save;
          MsWord.Quit;
       end;
until FindNext(sr) <> 0;
FindClose(sr);

В чем дело. Заранее спасибо.

Данкинг

Дата 6.12.2009, 19:06 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

Ну так а самим вордом эти файлы открываются? Бывают же глюки.

--------------------

There's nothing left but silent epitaphs.

marhatter

Дата 6.12.2009, 19:09 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(Данкинг @ 6.12.2009, 19:06)

Ну так а самим вордом эти файлы открываются? Бывают же глюки.

Да откываются. Конечно бывают глюки, но вот именно когда приложение работает сразу вылетает

Данкинг

Дата 6.12.2009, 19:14 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

А эти "глючные" файлы чем-то отличаются от остальных? Думаю, тут дело не в коде, а именно в файлах.

--------------------

There's nothing left but silent epitaphs.

marhatter

Дата 6.12.2009, 19:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(Данкинг @ 6.12.2009, 19:14)

А эти "глючные" файлы чем-то отличаются от остальных? Думаю, тут дело не в коде, а именно в файлах.

такое же предположение, что дело в файлах, так как только на некоторых файлах такая проблема. а как нить можно с этим бороться?

Данкинг

Дата 6.12.2009, 19:31 (ссылка)

(нет голосов)

Загрузка ...

Yersinia pestis

Профиль
Группа: Завсегдатай
Сообщений: 8302
Регистрация: 7.11.2006
Где: მოსკოვი

Репутация: 5
Всего: 130

marhatter, посмотри вручную, что глючного может быть у этих файлов, в чём их отличие от остальных. Таблица какой-то иной формат имеет и т.п.

--------------------

There's nothing left but silent epitaphs.

marhatter

Дата 6.12.2009, 19:37 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

Цитата(Данкинг @ 6.12.2009, 19:31)

попробуем)))

marhatter

Дата 7.12.2009, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

Репутация: нет
Всего: нет

На одном компе все нормально работает, переношу на другой, там выскакивает эта ошибка. Файлы все однотипные, но есть некоторые различия ( где то есть небольшой текст перед табличкой, где то еще одна табличка )

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »