《2021年DELPHI+WORD解决方案参考 NET电脑资料》由会员分享,可在线阅读,更多相关《2021年DELPHI+WORD解决方案参考 NET电脑资料(48页珍藏版)》请在金锄头文库上搜索。
1、DelphiWord解决方案参考 net电脑资料 这是我做项目过程中自己做的几个函数,见到大家都在问Word的问题, 这是我做项目过程中自己做的几个函数,见到大家都在问Word的问题。现在拿出来和大家共享。(希望有朋友可以进一步添加新的功能,或者做成包或者lib等,更方便大家使用。我自己是没有时间啦,呵呵) 使用前,先根据需要建立一个空的WORD文件作为模板,在模板文件中设置好各种格式和文本。另外,其中的PrnWordTable的参数是TDBGridEh类型的控件,取自Ehlib2.6 其中用到的shFileCopy函数(用于复制文件)和guiInfo函数(用于显示框)也是自己编写的,代码也附
2、后。 示范代码如下: 代码完成的功能: 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(pp,p,tr
3、ue); 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 imgInser
4、t: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
5、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.documentAdd;
6、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;bSimp
7、leReplace:boolean=false):boolean; var i:Integer; begin if bSimpleReplace then begin /简单处理,直接执行替换操作 try wApp.Selection.Find.ClearFormatting; wApp.Selection.Find.Replacement.ClearFormatting; wApp.Selection.Find.Text := docText; wApp.Selection.Find.Replacement.Text :=newText; wApp.Selection.Find.Forwar
8、d := True; wApp.Selection.Find.Wrap := wdFindContinue; wApp.Selection.Find.Format := False; wApp.Selection.Find.MatchCase := False; wApp.Selection.Find.MatchWholeWord := true; wApp.Selection.Find.MatchByte := True; wApp.Selection.Find.MatchWildcards := False; wApp.Selection.Find.MatchSoundsLike := F
9、alse; wApp.Selection.Find.MatchAllWordForms := False; wApp.Selection.Find.Execute(Replace:=wdReplaceAll); result:=true; except result:=false; end; exit; end; /自动分行 reWord.Lines.Clear; reWord.Lines.Add(newText); try /定位到要替换的位置的后面 wApp.Selection.Find.ClearFormatting; wApp.Selection.Find.Text := docTex
10、t; wApp.Selection.Find.Replacement.Text := ; wApp.Selection.Find.Forward := True; wApp.Selection.Find.Wrap := wdFindContinue; wApp.Selection.Find.Format := False; wApp.Selection.Find.MatchCase := False; wApp.Selection.Find.MatchWholeWord := False; wApp.Selection.Find.MatchByte := True; wApp.Selectio
11、n.Find.MatchWildcards := False; wApp.Selection.Find.MatchSoundsLike := False; wApp.Selection.Find.MatchAllWordForms := False; wApp.Selection.Find.Execute; wApp.Selection.MoveRight(wdCharacter,1); /开始逐行插入 for i:=0 to reWord.Lines.Count-1 Do begin /插入当前行 wApp.Selection.InsertAfter(reWord.Linesi); /除最后
12、一行外,自动加入新行 if i wApp.Selection.InsertAfter(#13); end; /删除替换位标 wApp.Selection.Find.ClearFormatting; wApp.Selection.Find.Replacement.ClearFormatting; wApp.Selection.Find.Text := docText; wApp.Selection.Find.Replacement.Text := ; wApp.Selection.Find.Forward := True; wApp.Selection.Find.Wrap := wdFindContinue;