Текущий архив: 2003.11.17;
Скачать: CL | DM;
Вниз
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."
Страницы: 1 вся ветка
Текущий архив: 2003.11.17;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.026 c
