[alex_rR]

Вот, что я делаю. Выдает ошибку на последней строчке где save.

Код:

procedure TfrmMDIParent.N11Click(Sender: TObject);
var
  MSWord: Variant;
  ext: String;
begin

with SaveDialog do
  if Execute then
      ext:=SaveDialog.FileName;

  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  //MSWord.ActiveDocument.Save(ext+'.doc');
end;