Скачать: CL | DM;

COM и MS Word XP   Найти похожие ветки 

← →
Nikolai_S ©   (2003-10-06 12:59) [0]

В Дельфи 6 с помощью компонентов TWordApplication, TWordDocument создаю отчеты в MS Word. Подставляю в заранее заготовленный документ информацию в различные поля из программы (с помощью замены). Например, в документе-шаблоне есть поле [FirmName], которое заменяется на какую-то строку из программы.

Проблема в том, что с Word 97, 2000 все работает, а в XP функция replace просто не срабатывает:


uses word2000;

procedure WordReplace(var WordDocument: TWordDocument; FindStr, ReplaceStr: string);
var
oldP, newP, Replace, MatchWholeWord: OleVariant;
begin
oldP := FindStr;
newP := ReplaceStr;
Replace := wdReplaceAll;
MatchWholeWord:= True;
WordDocument.Range.Find.Execute(oldP, EmptyParam, MatchWholeWord,
EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
EmptyParam, newP, Replace);
end;

В дельфи 7 при использовании юнитов Word97, Word2000 или WordXP вообще вылетают какие-то ужасные ошибки.

---

← →
Nikolai_S ©   (2003-10-07 10:16) [1]

?

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.017 c