Проблема в Delphi 7 c MS Word

← →
al-er (2003-01-26 15:03) [0]

Добрый день, у меня проблема в Delphi 7
(в Delphi 5 такой не было) :
Создан шаблон документа, необходимо его открыть
и на место определенной метки вставить какие-то
данные.
Я делаю так:

var
Shablon, FileName: OleVariant;
OldStr, NewStr: OleVariant;
begin
Path:= ExtractFilePath(Application.EXEName);
WordApplication1.Connect;
Shablon:=Path+"Dog.DOC";
FileName:=OpenDialog1.FileName;
WordApplication1.Documents.Open(Shablon,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam);

WordDocument1.ConnectKind:=ckRunningOrNew;
WordDocument1.ConnectTo(WordApplication1.ActiveDocument);
replace:=1;
WordApplication1.Visible:=true;

oldStr:="@NMET";
newStr:=Edit_NMet.Text;
WordDocument1.Range.Find.Execute(oldStr,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,newStr,replace,
EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;

Когда я запускаю в среде D7 через Run
и далее F7, то все проходит отлично, но когда запускаю
ЕХЕ-шник, то появляется сообщение "Ошибка на сервере".
(Может ли быть такое из-за антивирусника (Нортон АВ 2002)?)
Подскажите, пожалуйста, кто знает.

← →
Filat © (2003-01-26 16:36) [1]

А какой офис ты использовал с 5-кой и какой у тебя с 7-кой?
По моему было изменение в количестве WordApplication1.Documents.Open(Shablon, EmptyParam.
Если офис не менял, тогда не знаю.
Если подозреваешь Нортона, попробуй на компе где его нет.
Удачи!

Проблема в Delphi 7 c MS Word Найти похожие ветки