Текущий архив: 2003.10.16;
Скачать: 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 вся ветка
Текущий архив: 2003.10.16;
Скачать: CL | DM;
Память: 0.46 MB
Время: 0.027 c
