Форум: "Основная";
Текущий архив: 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.45 MB
Время: 0.007 c