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

dleasy 2003-10-20 05:20:30
有文件Doc1.doc、Doc2.doc、和文件Doc3.doc,3个Word文件,用Deiphi如何实现将这3个Word文件合成一个新文件Copy.doc,Copy.doc中的内容是前3个Word文件的内容之和!按您的方法我试验成功后将立即给于分!
...全文
51 8 打赏 收藏 转发到动态 举报
写回复
用AI写文章
8 条回复
切换为时间正序
请发表友善的回复…
发表回复
gdwyh 2003-10-23
  • 打赏
  • 举报
回复
方法二: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;
gdwyh 2003-10-22
  • 打赏
  • 举报
回复
补充,第一行再补充上word2000或wordxp(视乎你安装DELPHI时的OFFICE选项)
gdwyh 2003-10-22
  • 打赏
  • 举报
回复
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;
haoguozhong 2003-10-22
  • 打赏
  • 举报
回复
在次帮你up
dleasy 2003-10-21
  • 打赏
  • 举报
回复
各位,如果deiphi不行的话,其他语言也可以,只要能达到这个目的,不论哪种语言,我测试成功马上给分!急急急~~~!
wife811 2003-10-20
  • 打赏
  • 举报
回复
不知道:(关注中。。。。。。
anan3000 2003-10-20
  • 打赏
  • 举报
回复
关注
haoguozhong 2003-10-20
  • 打赏
  • 举报
回复
关注!帮你UP!

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧