olecontainer 里的word内容如何复制到粘贴板?????????

Question

olecontainer 里的word内容如何复制到粘贴板?????????,我现在想把olecontainer里的word内容追加到现有的WORD文档里,有什么好方法吗?

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
begin
if Opendialog1.execute then
begin
     OleContainer1.CreateObjectFromFile(OpenDialog1.FileName,false);
     Olecontainer1.Doverb(ovShow); //装载word中内容
end;
end;追加方法可以参考Delphi自带Demo
C:\Program Files\Borland\Delphi6\Demos\ActiveX\OleAuto\SrvComp\Word
也可以参考文章
http://search.csdn.net/Expert/topic/643/643702.xml?temp=.5129816

Answer 2

delephi自带的例子有错
改
    if ChkBoxNewDoc.Checked then
    begin
      WordApplication.Documents.Add(Template, NewTemplate);
      {Assign WordDocument component}
      WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
    end;
为
    if ChkBoxNewDoc.Checked then
    begin
      WordApplication.Documents.Add(Template, NewTemplate,EmptyParam,EmptyParam);
      {Assign WordDocument component}
      WordDocument.ConnectTo(WordApplication.Documents.Item(ItemIndex));
    end;