Delphi+Word解决方案参考

Delphi＋Word解决方案参考这是我做项目过程中自己做的几个函数，见到大家都在问Word的问题。现在拿出来和大家共享。（希望有朋友可以进一步添加新的功能，或者做成包或者lib等，更方便大家使用。我自己是没有时间啦，呵呵）使用前，先根据需要建立一个空的WORD文件作为模板，在模板文件中设置好各种格式和文本。另外，其中的PrnWordTable的参数是TDBGridEh类型的控件，取自Ehlib2.6其中用到的shFileCopy函数（用于复制文件）和guiInfo函数（用于显示消息框）也是自己编写的，代码也附后。示范代码如下：代码完成的功能：1.替换打印模板中的“#TITLE#”文本为“示范代码1”2.并且将DBGridEh1控件当前显示的内容插入到文档的末尾3.在文档末尾插入一个空行4.在文档末尾插入新的一行文本5.将文档中的空行去掉ifPrnWordBegin('C:\打印模板.DOC','C:\目标文件1.DOC')thenbeginPrnWordReplace('#TITLE#','示范代码1');PrnWordTable(DBGridEh1);PrnWordInsert('');PrnWordInsert('这是新的一行文本');PrnWordReplace('^p^p','^p',true);PrnWordSave;end;源代码如下：//Word打印（声明部分）wDoc,wApp:Variant;functionPrnWordBegin(tempDoc,docName:String):boolean;functionPrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean;functionPrnWordInsert(lineText:String;bNewLine:boolean=true):boolean;overload;functionPrnWordInsert(varimgInsert:TImage;sBookMark:String=''):boolean;overload;functionPrnWordInsert(varchartInsert:TChart;sBookMark:String=''):boolean;overload;functionPrnWordTable(vardbG:TDBGridEh;sBookMark:String=''):boolean;procedurePrnWordSave;procedurePrnWordEnd;//Word打印（实现部分）{功能：基于模板文件tempDoc新建目标文件docName并打开文件}functionPrnWordBegin(tempDoc,docName:String):boolean;beginresult:=false;//复制模版iftempDoc''thenifnotshFileCopy(tempDoc,docName)thenexit;//连接WordtrywApp:=CreateOleObject('Word.Application');exceptguiInfo('请先安装MicrosoftWord。');exit;end;try//打开iftempDoc=''thenbegin//创建新文档wDoc:=wApp.document．Add;wDoc.SaveAs(docName);endelsebegin//打开模版wDoc:=wApp.document．.Open(docName);end;exceptguiInfo('打开模版失败，请检查模版是否正确。');wApp.Quit;exit;end;wApp.Visible:=true;result:=true;end;{功能：使用newText替换docText内容bSimpleReplace：true时仅做简单的替换，false时对新文本进行换行处理}functionPrnWordReplace(docText,newText:String;bSimpleReplace:boolean=false):boolean;vari:Integer;beginifbSimpleReplacethenbegin//简单处理，直接执行替换操作trywApp.Selection.Find.ClearFormatting;wApp.Selection.Find.Replacement.ClearFormatting;wApp.Selection.Find.Text:=docText;wApp.Selection.Find.Replacement.Text:=newText;wApp.Selection.Find.Forward:=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:=False;wApp.Selection.Find.MatchAllWordForms:=False;wApp.Selection.Find.Execute(Replace:=wdReplaceAll);result:=true;exceptresult:=false;end;exit;end;//自动分行reWord.Lines.Clear;reWord.Lines.Add(newText);try//定位到要替换的位置的后面wApp.Selection.Find.ClearFormatting;wApp.Selection.Find.Text:=docText;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.Selection.Find.MatchWildcards:=False;wApp.Selection.Find.MatchSoundsLike:=False;wApp.Selection.Find.MatchAllWordForms:=False;wApp.Selection.Find.Execute;wApp.Selection.MoveRight(wdCharacter,1);//开始逐行插入fori:=0toreWord.Lines.Count-1Dobegin//插入当前行wApp.Selection.InsertAfter(reWord.Lines[i]);//除最后一行外，自动加入新行ifireWord.Lines.Count-1thenwApp.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;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:=False;wApp.Selection.Find.MatchAllWordForms:=False;wApp.Selection.Find.Execute(Replace:=wdReplaceAll);result:=true;exceptresult:=false;end;end;{功能：打印TDBGridEh当前显示的内容基于TDBGridEh控件的格式和内容，自动在文档中的sBookMark书签处生成Word表格目前能够支持单元格对齐、多行标题（两行）、底部合计等特性sBookMark：Word中要插入表格的书签名称}functionPrnWordTable(vardbG:TDBGridEh;sBookMark:String=''):boolean;variCol,iLine,i,j,k:Integer;wTable,wRange:Variant;iRangeEnd:longint;iGridLine,iTitleLine:Integer;getTextText:String;getTextDisplay:boolean;titleList:TStringList;titleSplit,titleCol:Integer;lastTitleSplit,SubTitle:Integer;lastTitle:String;beginresult:=false;try//计算表格的列数（不包括隐藏的列）iTitleLine:=1;//始终默认为1iCol:=0;fori:=0todbG.Columns.Count-1DobeginifdbG.Columns[i].VisiblethenbeginiCol:=iCol+1;end;end;//计算表格的行数（不包括隐藏的列）ifdbG.DataSource.DataSet.ActivetheniLine:=dbG.DataSource.DataSet.RecordCountelseiLine:=0;iGridLine:=iLine+iTitleLine+dbG.FooterRowCount;//定位插入点ifsBookMark=''thenbegin//在文档末尾iRangeEnd:=wDoc.Range.End-1;ifiRangeEnd0theniRangeEnd:=0;wRange:=wDoc.Range(iRangeEnd,iRangeEnd);endelsebegin//在书签处wRange:=wDoc.Range.Goto(wdGoToBookmark,,,sBookMark);end;wTable:=wDoc.Tables.Add(wRange,iGridLine,iCol);wTable.Columns.AutoFit;//标题行k:=1;forj:=1todbG.Columns.CountDobeginifdbG.Columns[j-1].VisiblethenbeginifdbG.UseMultiTitlethenbegintitleList:=strSplit(dbG.Columns[j-1].Title.Capt