社区
Delphi
帖子详情
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文件的内容之和!按您的方法我试验成功后将立即给于分!
...全文
56
8
打赏
收藏
100分相送!用Delphi如何将两个以上的Word文件合成一个文件!
有文件Doc1.doc、Doc2.doc、和文件Doc3.doc,3个Word文件,用Deiphi如何实现将这3个Word文件合成一个新文件Copy.doc,Copy.doc中的内容是前3个Word文件的内容之和!按您的方法我试验成功后将立即给于分!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用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!
Delphi
XE10零基础实战快速入门
通过课堂上
一个
一个
的实战例子,演示
Delphi
XE10的用法,最后通过
一个
完整的通讯录程序,让学员初步掌握软件开发的全部流程 让零基础学员快速入门
Delphi
编程,快速掌握
Delphi
的使用方法,并能够制作出自己的软件来。...
Delphi
procedure and function
说明 调用Append前,F必须已与
一个
外部
文件
相联系。对用Append打开的
文件
,仅有合法操作是调用Write或Writeln。 首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils 功能 将字串S添加到...
Borland
Delphi
标准函数和过程集
说明 调用Append前,F必须已与
一个
外部
文件
相联系。对用Append打开的
文件
,仅有合法操作是调用Write或Writeln。 首部 procedure AppendStr(var Dest: string; const S: string); $[SysUtils 功能 将字串S...
关于oa系统开发平台的选择问题.
bncharm (人间兵器) :我们公司以前一直都用的是db2+
delphi
+Domino Lotus Notes平台。现在感觉市场对这个平台的需求不是很大,而且公司内部有种lotus平台已经落后于时代的感觉。是否真是如此?老总要求我们分析几种...
我在CSDN参与的3000个帖子
2:
100
分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
Delphi
5,392
社区成员
262,732
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章