fastReport导出Word问题.docx
《fastReport导出Word问题.docx》由会员分享，可在线阅读，更多相关《fastReport导出Word问题.docx（6页珍藏版）》请在冰豆网上搜索。
fastReport导出Word问题
fastReport导出Word问题
我已用word写好了一个模板，里面放了固定的格式，并定义了很多相应的书签，
现在的问题是如何向word文档里对应的书签中加入相应的数据并设置的字体。
最好能给出例子。
///////////////
给你一个我刚刚编写的例子，你自己研究：
unitUnit1;
interface
uses
Windows,Messages,SysUtils,Classes,
Graphics,Controls,Forms,Dialogs,
StdCtrls;
type
TForm1
class（TForm）
Button1:
TButton;
procedureInsertLines（LineNum:
Integer）;
procedureButton1Click（Sender:
TObject）;
private
{Privatedeclarations}
public
wordApp,wordDoc:
Variant;
{Publicdeclarations}
end;
var
Form1:
TForm1;
implementation
uses
ComObj;
Const
wdAlignParagraphLeft=0;
Const
wdAlignParagraphCenter=1;
Const
wdAlignParagraphRight=2;
Const
wdAlignParagraphJustify=3;
Const
wdAdjustNone=0;
Const
wdGray25=16;
Const
wdGoTOLine=3;
Const
wdGoToLast=-1;
Const
wdSendToNewDocument=0;
{$R*.DFM}
//在文档中插入空行
procedureTForm1.InsertLines（LineNum:
Integer）;var
iCount:
Integer;
begin
foriCount:
=1toLineNumdowordApp.Selection.TypeParagraph;
end;
procedureTForm1.Button1Click（Sender:
TObject）;var
StrAdd:
String;
i:
Integer;
wrdSelection:
Variant;
begin
//创建一个word对象wordApp:
=CreateOleObject（'Word.Application'）;wordApp.Visible:
=true;
//创建一个word文档wordDoc:
=wordApp.Documents.Add（）;wordDoc.Select;
wrdSelection:
=wordApp.selection;
//在文档中插入内容
StrAdd:
='教务管理员职务说明书';
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraph
Center;
wrdSelection.font.bold:
=true;
wrdSelection.font.size:
=15;
wrdSelection.font.Underline:
=1;
wrdSelection.TypeText（StrAdd）;
wrdSelection.font.Underline:
=0;
wrdSelection.font.bold:
=false;
wrdSelection.font.size:
=11;
InsertLines
（1）;
//在文档中插入一个4行4列的表格，并格式化wordDoc.Tables.Add（wrdSelection.Range,4,4,2,0）;wordDoc.Tables.Item
（1）.Borders.Item
（1）.LineStyle:
=7;wordDoc.Tables.Item
（1）.Borders.Item
（2）.LineStyle:
=7;wordDoc.Tables.Item
（1）.Borders.Item（3）.LineStyle:
=7;wordDoc.Tables.Item
（1）.Borders.Item（4）.LineStyle:
=7;fori:
=1to4dobegin
wordDoc.Tables.Item
（1）.Cell（i,1）.Range.Bold:
=true;
wordDoc.Tables.Item
（1）.Cell（i,3）.Range.Bold:
=true;
wordDoc.Tables.Item
（1）.Rows.Item（i）.Range.Paragraphs.Alignment:
=wdAlignParagraphCenter;
end;
//在第一个表格中插入内容wordDoc.Tables.Item
（1）.Cell（1,1）.Range.text:
='岗位名称';
worddoc.tables.item
（1）.cell（1,2）.range.InlineShapes.AddPicture（'E:
\heartsong\0003.gif',False,True）;
wordDoc.Tables.Item
（1）.Cell（2,1）.Range.InsertAfter（'岗位级别'）;
wordDoc.Tables.Item
（1）.Cell（3,1）.Range.InsertAfter（'隶属部门'）;
wordDoc.Tables.Item
（1）.Cell（4,1）.Range.InsertAfter（'直接上级'）;
wordDoc.Tables.Item
（1）.Cell（1,3）.Range.InsertAfter（'岗位编号'）;
wordDoc.Tables.Item
（1）.Cell（2,3）.Range.InsertAfter（'现任职者'）;
wordDoc.Tables.Item
（1）.Cell（3,3）.Range.InsertAfter（'分支机构'）;
wordDoc.Tables.Item
（1）.Cell（4,3）.Range.InsertAfter（'直接下级'）;
//插入一个5行一列的表格:
工作概述
wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
Left;
wordDoc.Tables.Add（wrdSelection.Range,1,1,2,0）;
wordDoc.Tables.Item
（1）.Rows.Item（5）.Range.Paragraphs.Align
ment:
=wdAlignParagraphLeft;
wrdSelection.Font.Bold:
=true;
wrdSelection.Font.Size:
=13;
wrdSelection.TypeText（'一、工作概述：
'）;
wrdSelection.font.bold:
=false;
wrdSelection.Font.Size:
=11;
wrdSelection.TypeText（chr（10）+'一些内容'）;
//插入一个5行一列的表格:
主要工作职责wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraph
Left;
wordDoc.Tables.Add（wrdSelection.Range,1,1,2,0）;
wordDoc.Tables.Item
（1）.Rows.Item（6）.Range.Paragraphs.Align
ment:
=wdAlignParagraphLeft;
wrdSelection.Font.Bold:
=true;
wrdSelection.Font.Size:
=13;
wrdSelection.TypeText（'二、主要工作职责：
'）;
wrdSelection.font.bold:
=false;
wrdSelection.Font.Size:
=11;
wrdSelection.TypeText（chr（10）+'一些内容'）;
//插入一个5行一列的表格:
工作关系：
wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraphLeft;
wordDoc.Tables.Add（wrdSelection.Range,1,1,2,0）;
wordDoc.Tables.Item
（1）.Rows.Item（7）.Range.Paragraphs.Align
ment:
=wdAlignParagraphLeft;
wrdSelection.Font.Size:
=13;
wrdSelection.TypeText（'三、工作关系：
'）;
wrdSelection.font.bold:
=false;
wrdSelection.Font.Size:
=11;
wrdSelection.TypeText（chr（10）+'一些内容'）;
//插入一个5行一列的表格:
工作权限：
wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraph
Left;
wordDoc.Tables.Add（wrdSelection.Range,1,1,2,0）;
wordDoc.Tables.Item
（1）.Rows.Item（8）.Range.Paragraphs.Align
ment:
=wdAlignParagraphLeft;
wrdSelection.Font.Bold:
=true;
wrdSelection.Font.Size:
=13;
wrdSelection.TypeText（'四、工作权限：
'）;
wrdSelection.font.bold:
=false;
wrdSelection.Font.Size:
=11;
wrdSelection.TypeText（chr（10）+'一些内容'）;
//插入一个5行一列的表格:
任职资格与要求：
wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraphLeft;
wordDoc.Tables.Add（wrdSelection.Range,1,1,2,0）;
wordDoc.Tables.Item
（1）.Rows.Item（9）.Range.Paragraphs.Alignment:
=wdAlignParagraphLeft;
wrdSelection.Font.Bold:
=true;
wrdSelection.Font.Size:
=13;
wrdSelection.TypeText（'五、任职资格与要求：
：
'）;
wrdSelection.font.bold:
=false;
wrdSelection.Font.Size:
=11;
wrdSelection.TypeText（chr（10）+'学历：
'+'一些内容'）;
wrdSelection.TypeText（chr（10）+'工作经历：
'+'一些内容
'）;
'+'一些内容'）;
//插入编制人等内容wordApp.Selection.GoTo（wdGotoLine,wdGoToLast）;
wrdSelection.ParagraphFormat.Alignment:
=wdAlignParagraphLeft;
//编制人编制日期
wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'编制人：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'编制人'+'
'）;
wrdSelection.Font.Bold:
=true;
wrdSelection.TypeText（'编制日期：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'编制日期'）;
InsertLines
（1）;
//审核人审核日期wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'审核人：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'审核人'+'
'）;
wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'审核日期：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'审核日期'）;
InsertLines
（1）;
//批准人批准日期wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'批准人：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'批准人'+'
'）;
wrdSelection.TypeText（'批准日期：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'批准日期'）;
InsertLines
（1）;
//操作员操作日期wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'操作员：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'操作员'+'
'）;
wrdSelection.Font.Bold:
=true;wrdSelection.TypeText（'操作日期：
'）;wrdSelection.Font.Bold:
=false;wrdSelection.TypeText（'操作日期'）;
//保存文档
end;
end.
升级会员 