社区
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文件的内容之和!按您的方法我试验成功后将立即给于分!
...全文
51
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
procedure and function
[标准函数和过程] 首部 procedure Abort;$[SysUtils 功能 引起放弃的意外处理。 说明 不显示任何错误信息。 首部 function Abs(N: ): ;$[System 功能 返回参数N的绝对值。 说明 函数结果与参数有相同类型,参数可以是整型也可以是浮点型。 ## Abs(-12) = 12;Abs(-12.03) = 12.03 首部 proced
Borland
Delphi
标准函数和过程集
转自:http://www.sikeu.com/user1/yesu/archives/2007/200757231058.html 首部 procedure Abort;$[SysUtils 功能 引起放弃的意外处理。 说明 不显示任何错误信息。 首部 function Abs(N: ): ;$[System 功能 返回参数N的绝对值。 说明 函数结果与参数有相同类型,参数可以
关于oa系统开发平台的选择问题.
bncharm (人间兵器) :我们公司以前一直都用的是db2+
delphi
+Domino Lotus Notes平台。现在感觉市场对这个平台的需求不是很大,而且公司内部有种lotus平台已经落后于时代的感觉。是否真是如此?老总要求我们分析几种平台的优劣,以便选择其一作为公司将来的发展基础。诸位大大是否可以介绍一下目前比较流行的平台以及与平台相关的辅助技术与工具?高
分相送
。 zhf_karen(
我在CSDN参与的3000个帖子
今日偶然翻到,感慨万千 1:申述:版主,是否扣了我的专家分? 2:
100
分急求,随机输出十个小写字母,但是,要求这十个字母不相同 3:求Sn=a+aa+aaa+…+aaa…a(n个a)之值 4:数组题 望高手帮忙! 5:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6:VBA请教怎
【转】上千个扩展名
AAM Authorware shocked
文件
AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份
文件
ABS 该类
文件
有时用于指示
一个
摘要(就像在一篇有关科学方面的文章的
一个
摘要或概要,取自abstra
Delphi
5,379
社区成员
262,722
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章