100分相送！用Delphi如何将两个以上的Word文件合成一个文件！

Question

有文件Doc1.doc、Doc2.doc、和文件Doc3.doc，3个Word文件，用Deiphi如何实现将这3个Word文件合成一个新文件Copy.doc，Copy.doc中的内容是前3个Word文件的内容之和！按您的方法我试验成功后将立即给于分！

Answer 1

各位，如果deiphi不行的话，其他语言也可以，只要能达到这个目的，不论哪种语言，我测试成功马上给分！急急急~~~！

Answer 2

uses comobj;
procedure Tmenufrm.Button1Click(Sender: TObject);
var
  oe:variant;
begin
  oe:=CreateOleObject('word.Application');
  oe.visible:=true;
  oe.Documents.Add(DocumentType:=wdNewBlankDocument);
  oe.ChangeFileOpenDirectory(文件路径);
  oe.Selection.InsertFile(FileName:='doc1.doc', Range:='', ConfirmConversions:=False, Link:=False, Attachment:=False);
  oe.Selection.InsertFile(FileName:='doc2.doc', Range:='', ConfirmConversions:=False, Link:=False, Attachment:=False);
  oe.Selection.InsertFile(FileName:='doc3.doc', Range:='', ConfirmConversions:=False, Link:=False, Attachment:=False);
end;

Answer 3

补充,第一行再补充上word2000或wordxp(视乎你安装DELPHI时的OFFICE选项)

Answer 4

方法二:form中放两个控件wordApplication1、worddocument1.procedure TForm1.Button1Click(Sender: TObject);
begin
  wordapplication1.Connect;
  wordapplication1.Visible:=true;
  wordapplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  worddocument1.ConnectTo(wordapplication1.ActiveDocument);
  wordapplication1.ChangeFileOpenDirectory(文件路径);
  wordapplication1.Selection.InsertFile(doc1.doc',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  wordapplication1.Selection.InsertFile(doc2.doc',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
  wordapplication1.Selection.InsertFile(doc3.doc',EmptyParam,EmptyParam,EmptyParam,EmptyParam);
end;