社区
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文件的内容之和!按您的方法我试验成功后将立即给于分!
...全文
52
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
说明 调用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:呵呵,来推荐一下我的网站,本站提供大量当今流行的免费的音乐和免费电影,...
【转】上千个扩展名
AAM Authorware shocked
文件
AAS Authorware shocked包 ABF Adobe二进制屏幕字体 ABK CorelDRAW自动备份
文件
...ABS 该类
文件
有时用于指示
一个
摘要(就像在一篇有关科学方面的文章的
一个
摘要或概要,取自abstra
Delphi
5,388
社区成员
262,729
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章