原创力文档- 1、本文档共12页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
Delphi+Word解决方案参考.doc
Delphi＋Word解决方案参考
示范代码如下：
代码完成的功能：
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.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 := F
文档评论（0）