您好，请教一下怎么将richedit里面的内容另存为.doc 不是直接打开word

Question

您好，请教一下怎么将richedit里面的内容另存为.doc 不是直接打开word

Answer 1

richedit可以存为rtf文件，也是用word打开

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
begin
  richedit1.Lines.SaveToFile('C:\aaa.doc');
end;

Answer 3

procedure Tfm_main.N1Click(Sender: TObject);
var
  str : string ;
begin
  if SaveDialog1.Execute then
  begin
    str := SaveDialog1.FileName;
    richedit.Lines.SaveToFile(str);
  end;
end;

Answer 4

procedure Tfm_main.N1Click(Sender: TObject);
var
  str : string ;
begin
  if SaveDialog1.Execute then
  begin
    str := SaveDialog1.FileName;
    richedit.Lines.SaveToFile(str);
  end;
end;