fastReport导出Word问题.docx
- 文档编号:8463162
- 上传时间:2023-01-31
- 格式:DOCX
- 页数:6
- 大小:15.81KB
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.
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- fastReport 导出 Word 问题