见上
解决方案 »
- Indy 中的 发送邮件例子,现在发送163邮箱时,总是提示503错误,应该如何解决呀??
- Delphi下一版本可能将加入C++BUILDER,Delphi将不在是一个专用开发工具
- 真诚请教一个RxRichEdit的问题
- 请教字符串查找问题,谢谢回复
- 召唤知道borland认证的达人进来看看
- 怎么删除capp.exe中文邮域名客户端啊?
- delphi中有没有对字符串的加密函数可以调用?
- HTMLInputElement.form.submit 报错 access violation
- 用DELPHI 怎么判断本机安装的SQL Server 是否是Express Edition版本(不要用SQL命令)
- 转成delphi
- 哪里的Delphi最便宜?正版的.
- 怎样实现类似foxmail的小窗口,文字滚动带链接,单击可以出现窗口显示内容(急)
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;
http://princed.mblogger.cn/posts/11880.aspx