Delphi＋Word解决方案参考 net电脑资料.docVIP

Delphi＋Word解决方案参考 net电脑资料 这是我做项目过程中自己做的几个函数，见到大家都在问Word的问题， 这是我做项目过程中自己做的几个函数，见到大家都在问Word的问题。现在拿出来和大家共享。（希望有朋友可以进一步添加新的功能，或者做成包或者lib等，更方便大家使用。我自己是没有时间啦，呵呵） 使用前，先根据需要建立一个空的WORD文件作为模板，在模板文件中设置好各种格式和文本。另外，其中的PrnWordTable的参数是TDBGridEh类型的控件，取自Ehlib2.6 其中用到的shFileCopy函数（用于复制文件）和guiInfo函数（用于显示框）也是自己编写的，代码也附后。 示范代码如下： 代码完成的功能： 1. 替换打印模板中的“#TITLE#”文本为“示范代码1” 2. 并且将DBGridEh1控件当前显示的内容插入到文档的末尾 3. 在文档末尾插入一个空行 4. 在文档末尾插入新的一行文本 5. 将文档中的空行去掉 if PrnWordBegin('C:\打印模板.DOC','C:\目标文件1.DOC') then begin PrnWordReplace('#TITLE#','示范代码1'); PrnWordTable(DBGridEh1); PrnWordInsert(''); PrnWordInsert('这是新的一行文本'); PrnWordReplace('^p^p','^p',true); PrnWordSave; end; 源代码如下： //Word打印（声明部分） function PrnWordBegin(tempDoc,docName:String):boolean; function PrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean; function PrnWordInsert(lineText:String;bNewLine:boolean=true):boolean;overload; function PrnWordInsert(var imgInsert:TImage;sBookMark:String=''):boolean;overload; function PrnWordInsert(var chartInsert:TChart;sBookMark:String=''):boolean;overload; function PrnWordTable(var dbG:TDBGridEh;sBookMark:String=''):boolean; procedure PrnWordSave; procedure PrnWordEnd; //Word打印（实现部分） { 功能：基于模板文件tempDoc新建目标文件docName并打开文件 } function PrnWordBegin(tempDoc,docName:String):boolean; begin result:=false; //复制模版 if tempDoc<>'' then if not shFileCopy(tempDoc,docName) then exit; //连接Word try wApp:=CreateOleObject('Word.Application'); except guiInfo('请先安装 Microsoft Word 。'); exit; end; try //打开 if tempDoc='' then begin //创建新文档 wDoc:=wApp.document．Add; wDoc.SaveAs(docName);