Как сохранить в MS Word?

[Apollo_13]

Поиск по форуму нашел некоторые примеры, но они немного непонятны... Как сохранять данные из компанента 'RichEdit' в Word?

[SERG1980]

попробуй так:
procedure TForm1.CreateDocExecute(Sender: TObject);
var Word,Doc:OleVariant;
begin
try
Word:=CreateOleObject('Word.Applica tion');
except
messagebox(0,'Microsoft Word не установлен',MB_ICONERROR+MB_OK+MB_S YSTEMMODAL);
exit;
end;
Word.Visible:=false;
Doc:=Word.Documents.Add;
Word.Selection.Font.Name:='Arial';
Word.Selection.Font.Size:=12;
Word.Selection.Paragraphs.Alignment :=3;//выравние по ширине
Word.Selection.TypeText(RichEdit);
Word.Vizible:=true;

[Небесный]

SERG1980, блин попал вступор, не могу дальше сдвинуться.
Короче за основу взял ваш код. Выкидает ошибку.

Word:=CreateOleObject | ('Word.Application');

[Error] Unit1.pas(46): Undeclared identifier: 'CreateOleObject'

А, вот мой код.

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure FormActivate(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
begin
Close;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
RichEdit1.Text := '';
end;

procedure TForm1.Button1Click(Sender: TObject);
var
Word,Doc:OleVariant;
begin
try
Word:=CreateOleObject('Word.Applica tion');
except
messagebox(0,'Microsoft Word íå óñòàíîâëåí',MB_ICONERROR+MB_OK+MB_S YSTEMMODAL);
exit;
end;
Word.Visible:=false;
Doc:=Word.Documents.Add;
Word.Selection.Font.Name:='Arial';
Word.Selection.Font.Size:=12;
Word.Selection.Paragraphs.Alignment :=3;//âûðàâíèå ïî øèðèíå
Word.Selection.TypeText(RichEdit);
Word.Vizible:=true;
end;

end.

[SERG1980]

В раздел uses добавь ComObj

[_Dmitry]

А почему бы не сохранять в родном rtf формате? Word же его читает.

RichEdit1.Lines.SaveToFile('file.rtf');