Привет друзья! С прошедшими праздниками вас
Такой вопросик
Подключаюсь к Ворду и хочу (
сохранить как) документ
пишет ошибку
Цитата:
Не достаточно актуальные параметры!
|
ошибка в строке
Цитата:
WordApplication1.ActiveDocument.SaveAs(Templ,Temp2 );
|
Вот процедура
Код:
procedure TForm11.Button4Click(Sender: TObject);
var
WordApp, doc :Variant;
adrSaveStr2: String;
Templ,Temp2:Olevariant;
begin
Templ:='C:\Test\';
Temp2:='.doc';
adrSaveStr2:='D:\Модуль Delphi\Bugalter\data\doc\workdoc\IIRozdel.docx';
if SaveDialog2.Execute then
WordApplication1.Connect;
WordApp:=CreateOleObject('Word.Application');
doc:=WordApp.Documents.open(adrSaveStr2);
WordApplication1.ActiveDocument.SaveAs(Templ,Temp2);
//закрываю
WordApplication1.ActiveDocument.Close;
WordApplication1.Quit;
end;
end.
Заранее большое спасибо