解决方案参考.docVIP

Delphi＋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打印（声明部分） wDoc,wApp:Variant; 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); end else begin //打开模版 wDoc:=wApp.document．.Open(docName); end; except guiInfo(打开模版失败，请检查模版是否正确。); wApp.Quit; exit; end; wApp.Visible:=true; result:=true; end; { 功能：使用newText替换docText内容 bSimpleReplace：true时仅做简单的替换，false时对新文本进行换行处理 } function PrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean; var i:Integer; begin if bSimpleReplace then begin //简单处理，直接执行替换操作 try wApp.Selection.Find.ClearFormatting; wApp.Selection.Find.Replacement.ClearF