Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Вниз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
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.06.12;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.011 c