Ошибка работы с Word под Windows 7

[mikhea]

Доброго времени суток. Использую в программе взаимодейтвие с Word (через ComObj). Под XP все работает нормально, а под семеркой иногда (но не всегда) при запуске вылезает ошибка "Прекращена работа программы Microsoft Office Word" и подробности:
Сигнатура проблемы:
Имя события проблемы: APPCRASH
Имя приложения: WINWORD.EXE
Версия приложения: 12.0.6545.5000
Отметка времени приложения: 4c653e57
Имя модуля с ошибкой: ntdll.dll
Версия модуля с ошибкой: 6.1.7600.16695
Отметка времени модуля с ошибкой: 4cc7ab86
Код исключения: c0000005
Смещение исключения: 00038db9
Версия ОС: 6.1.7600.2.0.0.768.2
Код языка: 1049

Дополнительные сведения об этой проблеме:
LCID: 1049
Brand: Office12Crash
skulcid: 1049

Из того, что удалось найти в интернете, понял, что такая или похожая ошибки встречаются у семерки часто, но что с ней делать, так и не понял.

[3D Hunter]

Читайте в MSDN про используемые вами функции, возможно произошли изменения.

[Стелс]

винду переустановите и не используйте mozila faerfox - должно помочь у меня такое тоже было из за фаерфокса

[mikhea]

Да у меня как раз XP, все работает. Семерка у заказчика, и у него периодически такая ошибка вылетает, но не всегда. Вот думаю, как исправлять. Судя по тому, что ошибка эта появляется только при запуске моей программы, видимо, дело все же в ней

Проблема была решена путем отключения надстроек COM в Word.

Теперь еще возникла такая ситуация. Прога успешно работает у нескольких пользователей (как под XP, так и под 7), но у одного под семеркой почему-то не работает открытие Word. Вот код:

procedure OpenWord (path: string; var W: OLEVariant; var fOpenWord: boolean);
begin
  fOpenWord := true;

  if (FileExists(path) = false) then
  begin
    Application.MessageBox (PChar('Не удалось найти файл ' + path),
     PChar(Application.Title), mb_OK or MB_ICONERROR);
    W.Quit;
    W := Unassigned;
    fOpenWord := false;
    exit;
  end;

  try                                
    W.Documents.Open(path, ReadOnly := true);
  except
    Application.MessageBox (PChar('Не удалось найти файл ' + path),
     PChar(Application.Title), mb_OK or MB_ICONERROR);
    W.Quit;
    W := Unassigned;
    fOpenWord := false;
  end;
end;

FileExists(path) возвращает true, т.е. файл на месте, а вот W.Documents.Open(path, ReadOnly := true) дает исключение. Если убрать мою обработку исключений и оставить стандартную, то пишет, что не найден файл. Т.е. получается какая-то фигня, что FileExists файл видит, а Open - нет. Есть какие-нибудь предположения?

[Stilet]

Есть какие-нибудь предположения?

Может сам файл не является документом той версии Ворда?

[mikhea]

Сообщение от Stilet

Может сам файл не является документом той версии Ворда?

Просто так в Ворде он открывается.