WordApplication в модуле word2000 и MS Word XP

← →
Prooksius © (2003-05-30 12:48) [0]

Всем привет!

На компе стоит: WIN98, MS WORD XP (2002), Delphi 5.

Перевожу программу с WordBasic на TWordApplication
(модуль word2000, хотя пробовал и с word97).

И вот столкнулся с таким глюком.
Привожу текст программы:

... var SelUnit, SelExtend, Replace: OleVariant; begin MSWord := TWordApplication.Create(Application); MSWord.Connect; FileName := "c:\myfile.doc"; MSWord.Documents.Open(FileName, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); SelUnit := wdStory; SelExtend := wdMove; MSWord.Selection.HomeKey(SelUnit, SelExtend); TempParam := "<My Text to find>"; MSWord.Selection.Find.ClearFormatting; MSWord.Selection.Find.MatchCase := True; MSWord.Selection.Find.Text := TempParam; MSWord.Selection.Find.Replacement.ClearFormatting; MSWord.Selection.Find.Replacement.Text := TempValue; MSWord.Selection.Find.Forward := True; MSWord.Selection.Find.Execute (EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam); ...

Вылетает ошибка типа EOleException (кажется) на строчке
MSWord.Selection.Find.ClearFormatting;

Сообщение: "Интерфейс не поддерживается".
После этого глюки системы вплоть до невозможности работать и нажатия Reset.

То есть, похоже, невозможно вызвать ни один метод/проперть объекта Find.

В чем тут может быть дело и как это лечится?

Заранее спасибо.

← →
Prooksius © (2003-05-30 13:14) [1]

Все, нашел.
Это, оказывается, баг микрософта. Блин...

см.
http://support.microsoft.com/support/kb/articles/Q292/7/44.ASP

WordApplication в модуле word2000 и MS Word XP Найти похожие ветки