怎样将备注框Memo中的内容导入word中？

Question

我现在做了个模块，要求将填写在备注框memo中的内容导入word中。
delphi中不知道可不可以将标签、编辑框、……中的内容导入到word 中？

Answer 1

delphi 自带的例子
D:\Program Files\Borland\Delphi6\Demos\ActiveX\OleAuto\Word8\word8auto.dpr

Answer 2

var i,lastline:integer;
writefile:textfile;
begin
 if combobox2.Text<>'' then
 begin
 if SaveDialog1.Execute then
  begin
  wfilename:=SaveDialog1.FileName;
  assignfile(writefile,SaveDialog1.FileName);
  rewrite(writefile);
  form17.Caption:=wfilename;
  writeln(writefile,'工会工作报告');
  writeln(writefile,'');
  writeln(writefile,'');
  writeln(writefile,'填报单位：  '+''+combobox1.Text+''+'  填报时间：'+''+datetostr(form17.DateTimePicker1.DateTime)+''+'  填报类型：'+''+combobox2.Text+'');
  writeln(writefile,'工会工作报告内容：');
  lastline:=memo1.Lines.Add('')-1;
  for i:=0 to lastline do
   begin
   writeln(writefile,memo1.lines[i]);
   end;
   closefile(writefile);
  end;
  end
  else
  showmessage('你还没选择填报类型！');
end;我现在用保存的方法，将内容保存到word中了
但是就是不知道在保存时，怎么设置字体和格式。