社区
Delphi
帖子详情
用Delphi控制替换Word文章内容,100分请教,晓玫有礼了。
wuxiaomei
2000-05-31 11:04:00
大虾们,大家好
我是xiaomei,听朋友介绍,刚到CSDN,看到这么热闹,真是高兴,小妹在此有礼了。
我在做研毕业论文时遇到一个问题,恳请大虾们帮忙:
我想用VB或DELPHI处理一篇Word文章,要求将文章的固定文字替换成其他内容,比如将文章中的“写作单位”换成“中科院数学所”,可能有多处需替换,怎么实现呢?
大家可要帮忙噢!!
xiaomeiwu@fm365.com
晓玫
...全文
401
8
打赏
收藏
用Delphi控制替换Word文章内容,100分请教,晓玫有礼了。
大虾们,大家好 我是xiaomei,听朋友介绍,刚到CSDN,看到这么热闹,真是高兴,小妹在此有礼了。 我在做研毕业论文时遇到一个问题,恳请大虾们帮忙: 我想用VB或DELPHI处理一篇Word文章,要求将文章的固定文字替换成其他内容,比如将文章中的“写作单位”换成“中科院数学所”,可能有多处需替换,怎么实现呢? 大家可要帮忙噢!! xiaomeiwu@fm365.com 晓玫
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
8 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
wuxiaomei
2000-06-07
打赏
举报
回复
各位大侠:
我想再加50分可是不能加分,提示我没有权利删除,只能分配这50分了,对不起大家!
再次感谢大家!
有时间写信联系
晓玫
2000-06-07
hfyun
2000-06-02
打赏
举报
回复
源程序我这里有
uses ComObj ;
procedure TForm1.Button1Click(Sender: TObject);
var
vWord,vDoc,vRange : Variant ;
sText,sReplace : string ;
lReturn : Boolean ;
begin
sText := 'ABCDEFG' ; //原文字串
sReplace := 'GFEDCBA' ; //新字串
vWord := CreateOleObject('Word.Application') ;//创建Word线程
try
//打开要操作的文件
vDoc := vWord.Documents.Open('C:\My Documents\AAAc.Doc');
vDoc.Select ; //选取中整个文档
vRange := vDoc.Range ; //替换范围
lReturn := True ;
while lReturn do
begin //找到并替代成功则返回 True 共11个参数
lReturn := vDoc.Range.Find.Execute(sText,,,,,,,,,sReplace,True) ;
end ;
finally
vDoc.Close(True) ; //关闭文并保存
vWord.Quit(False) ; //退出Word
end ;
end;
Delphi 3 下通过。
hfyun
2000-06-02
打赏
举报
回复
看看Word Basic帮助就会了。
jll
2000-05-31
打赏
举报
回复
同意kxy的意见,WordApplication基本上就该够用了。我用过,它封装了Word的Application接口(OLE)
kxy
2000-05-31
打赏
举报
回复
使用delphi5比较方便.用WordApplication和WordDocument
D:\Program Files\Borland\Delphi5\Demos\Activex\Oleauto\SrvComp\Word
有例子.
wuxiaomei
2000-05-31
打赏
举报
回复
问题刚提出来,大家就这么积极的帮我回答问题,让初来乍到就感受到CSDN的热情。
真的多谢各位大哥、大姐帮忙。
我做一下试验,如有问题,还要麻烦大家噢。
以后我会经常到这里来的。
晓玫
sky__horse
2000-05-31
打赏
举报
回复
直接用word不行吗?
qiuchaobin
2000-05-31
打赏
举报
回复
最好还是用WORD本身的功能。也可以通过接口调用WORD 的替换功能。
word
TOOLS_
delphi
_
delphi
替换
Word
_
Delphi
版
Word
文档批量合并、文字
替换
、修改、插入图片程序
DocReplace_打开
word
_
delphi
_
delphi
替换
Word
_
delphi
合同_
办公人员先根据业务需要,写好合同的文字,但在用户名称、产品名称等变化的位置填写指定的标记字符串,然后通过
Delphi
把数据库中的实际数据
替换
掉
Word
中的文字,最后让
Word
打印出合同!
word
文档内容批量
替换
工具(含
delphi
源码)
word
文档内容批量
替换
工具(含
delphi
源码)
delphi
控制
word
文档搜索
delphi
控制
word
文档搜索,搜索文件夹下的Doc,rtl和txt文件
Delphi
版
Word
文档批量合并、文字
替换
、修改、插入图片程序.rar
Delphi
开发的
Word
文档批量处理程序,可批量
Word
文字
替换
,批量字体修改、批量插入图片,批量合并
Word
文档、删除指定页等功能,还可以批量新建文档。关于本程序的使用说明: 1、系统将根据样版文件复制成多个文件; 2、新文件的名称可以从软件系统里提取,创建前需要进入其它功能系统后台数据,进行
分
别创建。 3、非英文序号默认为二位序号。 注:本
Delphi
源码在开发时引入有第三方控件。
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章