[Paskal]

Привет друзья! С прошедшими праздниками вас
Такой вопросик
Подключаюсь к Ворду и хочу (сохранить как) документ
пишет ошибку

Не достаточно актуальные параметры!

ошибка в строке

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.

Заранее большое спасибо

[lmikle]

Вот код, который генерит Word для операции "Сохранить как":

Код:

Sub Macro1()
    ActiveDocument.SaveAs FileName:="Doc1.doc", FileFormat:=wdFormatDocument, _
        LockComments:=False, Password:="", AddToRecentFiles:=True, WritePassword _
        :="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
        SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
        False
End Sub