[mskvkin]

Как мне в шаблон созданный в Word заменить значения в шаблоне используя delphi и сохранить его как документ, как это сделать если стоит Word я знаю, а вот если на компьютере стоит OpenOffice то тогда как???

когда на компьюторе стоит Word я делаю так, а как сделать если стоит OpenOffice???

когда на компьюторе стоит Word я делаю так:

Код:

procedure TForm1.sButton1Click(Sender: TObject);
var
  WApp : Variant;
  S : string;
  procedure Replace(Lab, Txt : string);
  begin
    WApp.Selection.End:=0;
    WApp.Selection.Start:=0;
    WApp.Selection.Find.Forward := True;
    WApp.Selection.Find.Replacement.Text := Txt;
    WApp.Selection.Find.Text := Lab;
    WApp.Selection.Find.Execute(Replace:=wdReplaceAll);
  end;
begin
  try
    WApp:= CreateOleObject('Word.Application');
  except
    on E : EOleError do begin
      MessageDlg('MS Word отсутствует на компьютере!', mtError, [mbOk], 0);
      Exit;
    end;
  end;
  try
    WApp.DisplayAlerts := false;
    WApp.Documents.Open(ExtractFilePath(Application.ExeName)+'шаблон.dot'); //не обязательно шаблон делать как "dot"
    Replace('[Date]', sEdit1.text);
    WApp.Visible := True;
    WApp.Selection.End:=0;
    WApp.Selection.Start:=0;
  finally
    WApp := Unassigned;
  end;
end;

Заранее огромное спасибо всем!!!

Вопрос такой:
1) Передать данные в openofficewriter (подомно тому как написано выше для Word или иначе если есть более легкое решение)
2) Как сохранить полученный документ в формат *.doc (в обоих случаях и с word и с openofficewriter)