数据库中的多个ole对象怎么再输出到同一个word中?

Question

数据库中的多个ole对象怎么再输出到同一个word中?access数据库有一字段为OLE字段，放了多条OLE对象(为word文档类型,就是delphi中的system面板中的ole控件类型设为word时生成的),现想把多条记录输出到同一个word文档中。
如果是文本可以这样逐个输出:
  word对象.Selection.TypeText('xxxxxxx'); //加入文字
可以直接用可以借助于剪贴板，但对于ole对象呢？word对象有没有直接用于输出ole对象的方法或函数？用剪贴板不知道好不好用，如果好用怎么弄法(好像类型不好确定)？
  谁有方法希望贴出尽可能详细的代码！谢谢！

Answer 1

procedure TfrmDocument.BtnBeginWordClick(Sender: TObject);
begin
  wordapp.Connect ;
  wordapp.Visible :=true;
end;procedure TfrmDocument.BtnNewDocumentClick(Sender: TObject);
var
  Template : OleVariant;
  NewTemplate : OleVariant;
  DocuType : OleVariant;
  Visible : OleVariant;
begin
  Template:=EmptyParam;
  NewTemplate:=True;
  DocuType:=0;
  Visible:=True;
  try
    wordapp.Documents.Add(Template,NewTemplate,DocuType,Visible);
  except
    showmessage('创建新文档失败！');
  end;
end;procedure TfrmDocument.BtnAddClick(Sender: TObject);
var
  ItemIndex : OleVariant;
begin
  ItemIndex:=1;
  try
    WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
  except
    showmessage('文档连接失败！');
  end;  if trim(memotxt.Lines.Text)='' then
    showmessage('请输入添加的内容！')
  else
    begin
      WordDocu.Range.InsertAfter(trim(memotxt.Lines.text));
    end;
end;procedure TfrmDocument.BtnInsertClick(Sender: TObject);
var
  ItemIndex : OleVariant;
begin
  ItemIndex:=1;
  try
    WordDocu.ConnectTo(WordApp.Documents.Item(ItemIndex));
  except
    showmessage('文档连接失败！');
  end;  if trim(memotxt.Lines.Text)='' then
    showmessage('请输入插入的内容！')
  else
    begin
      WordDocu.Range.InsertBefore(trim(memotxt.Lines.text));
    end;
end;procedure TfrmDocument.BtnSaveClick(Sender: TObject);
var
  EParam : OleVariant;
  FileName : OleVariant;
begin
  FileName:='d:\FirstFile.Doc';
  EParam:=EmptyParam;  try
    WordDocu.SaveAs(FileName,EParam);
    showmessage('文件保存成功！'); 
  except
    showmessage('文档保存失败！');
  end;
end;procedure TfrmDocument.BtnPrintViewClick(Sender: TObject);
begin
  try
    WordDocu.PrintPreview;
    //打印预览
  except
    showmessage('打印预览出错！');
  end;
end;procedure TfrmDocument.BtnPrintClick(Sender: TObject);
begin
  try
    WordDocu.printOut
  except
    showmessage('打印文档出错！');
  end;
end;

Answer 2

To： wyr521(论坛王子) 是OLE对象输出到WORD中啊！

Answer 3

wyr521(论坛王子) 厉害啊。