Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Проблема в Delphi 7 c MS Word [D7, WinXP]

al-er © (2003-01-26 15:03:00)
Добрый день, у меня проблема в 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:00) [1]
А какой офис ты использовал с 5-кой и какой у тебя с 7-кой?
По моему было изменение в количестве WordApplication1.Documents.Open(Shablon, EmptyParam.
Если офис не менял, тогда не знаю.
Если подозреваешь Нортона, попробуй на компе где его нет.
Удачи!

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »