我有这样一个需求,就是DELPHI中调用WORD并打开一个模板,这模板中包含一些特定的字符(如#ID#,#NAME#),我想用SERVER中相应的字段替换这些字符,请大虾指教!!!急急!!!!
解决方案 »
- 新手求教
- 我在一个系统里同时安装delphi 7和delphi 6,然后编译程序时提示内存错误?
- Dbgrid的fieldname显示问题
- 急急急,有关StringGrid
- 一个很高的问题
- 报表为何没有表格线,只有数据
- 请问哪有《delphi第三方控件使用大全》的电子书下载?
- 怎样在报表中实现换行呢?
- 热烈庆祝:Kingron重出江湖!!!菜鸟们有福喽……散分
- dbgrid的cell有text属性不?比如当我双击dbgrid中的某一记录时,要把这条记录的“编号”的值赋给edit1.text的代码该如何写?dbgrid的双击事件是哪一个?是oncellclick吗?
- 我修改了DIALOGS.PAS后,如何让它生效?
- 谁有JEDI-GIFImage这个控件
appWord: OLEVariant;
begin
appWord := CreateOleObject('Word.Application'); // 然后操作 Word 提供的命令即可解决, 替换命令应该用 Replace, 具体就不是很清楚,
// 请买本 Word 的 VBA 手册.
appWord.Documents.Open(DocFileName);
//appWord.ActiveDocument.Replace(...);
// ... ... appWord.Quit;
end;
findtext := strscr;//要替换的文本
.........
replacewith := strdst;//替换为的内容
replace := true;
worddocument1.range(startpos).find.execute(findtext, ....., replacewith, replace);
其他参数省略,你可以用emptyparam来代替
接分!!!!!!!!!