WordApplication

← →
Lamerr (2003-11-06 12:14) [0]

Кладу на форму WordApplication.
При попытке выполнения WordApplication.Connect получаю сообщение
"Вызов был отклонен" и все.
Однако в списке процессов появляется Winword.

Выполнение кода
procedure TfmExport.BitBtn2Click(Sender: TObject);
var
MsWord: Variant;
begin
try
MsWord := GetActiveOleObject("Word.Application");
except
try
MsWord := CreateOleObject("Word.Application");
MsWord.Visible := True;
except
ShowMessage("Не могу запустить Microsoft Word");
Exit;
end;
end;
end;
оканчивается тем-же самым (исключение и Winword в списке процессов).
2000-й Офис, 98-е Wind-ы, и 6-й Delphi.

Господа, подскажите, пожалуйста, с какого места начать поиск.

← →
malamba (2003-11-06 13:31) [1]

Жаль, под рукой нет кода.

Попробуй начать со свойств WordApplication ( F11).
Там где-то должно быть или Active или нечто подобное.
Вообщем, нужно просмотреть его свойства.

А с кодом посмотрю...

← →
malamba (2003-11-06 13:37) [2]

Вот:

FormGlav.WordApplication.Documents.Add(sTemplatePath, EmptyParam, EmptyParam, EmptyParam);
//FormGlav.WordApplication.Documents.Open(sTemplatePath,EmptyParam,
// EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,
// EmptyParam, EmptyParam, EmptyParam, EmptyParam);
//хотя в описаниях есть только 10 параметров, почему-то нужно 12
FormGlav.WordDocument.ConnectTo(FormGlav.WordApplication.ActiveDocument);

И закрываем

OleVar1:=sFileName;
FormGlav.WordDocument.SaveAs(OleVar1);
FormGlav.WordDocument.Close;
//FormGlav.WordDocument.Disconnect;
//FormGlav.WordApplication.Disconnect;
//FormGlav.WordApplication.Quit

Все работает

← →
Lamerr (2003-11-06 13:53) [3]

Так на сколько я понял Connect и есть то самое Active.
И по идее вызов ошибкой заканчиваться не должен

← →
malamba (2003-11-06 14:06) [4]

Ошибка может быть тут
GetActiveOleObject

А почему не хочешь использовать раннее связывание и свойства самого WordApplication

← →
Lamerr (2003-11-06 14:10) [5]

Кто сказал - не хочу. Очнеь даже хочу. И пытаюсь.
" Кладу на форму WordApplication.
При попытке выполнения WordApplication.Connect получаю сообщение
"Вызов был отклонен" и все.
Однако в списке процессов появляется Winword."

WordApplication Найти похожие ветки