在Delphi中很精确地控制生成的WORD文档的格式.doc

在Delphi中很精确地控制生成的WORD文档的格式?? var??? WordApplication1: TWordApplication; 通过以下的方式就可以在DELPHI中很精确地控制生成的WORD文档的格式。 ??? //打开WORD???? Wordapplication1.visible := true;??? //显示WROD??? Worddocument1.activate; ??? //设置字体??? wordapplication1.Selection.Font.Size := 14;??????????????? //字号??? wordapplication1.Selection.Font.Name := 宋体;????????? //字体??? wordapplication1.Selection.Font.Bold := wdToggle;????? //加粗 ??? //将图形文件插入文档当前位置??? Wordapplication1.Selection.InlineShapes.AddPicture(pict.jpg, emptyparam, emptyparam, emptyparam);?? //换行??? wordapplication1.Selection.TypeParagraph; ??? //写入文字??? wordapplication1.Selection.TypeText(这是用TypeText方法向文档写入的文字); ??? //写带下划线的文字??? wordapplication1.Selection.Font.UnderlineColor := wdcolorautomatic; //下划线颜色??? wordapplication1.Selection.Font.Underline := wdUnderlineSingle;??????? //下划线线型??? wordapplication1.Selection.TypeText(这是下划线文字);??? wordapplication1.Selection.Font.Underline := wdUnderlineNone;???????? //无下划线 ??? //文字居中??? wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphCenter;?? //居中对齐??? wordapplication1.Selection.TypeText(水平对齐文字);??? wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft;?????? //靠左对齐 ??? //插入分节符，其中 t: olevariant;??? t := wdPageBreak;??? wordapplication1.Selection.InsertBreak(t); ??? //插入分页符，其中 t: olevariant;??? t := wdSectionBreakNextPage;??? wordapplication1.Selection.InsertBreak(t); ??? //生成页眉页脚并写入数据??? worddocument1.ActiveWindow.ActivePane.View.SeekView := wdseekcurrentpageheader; //选页眉对象??? wordapplication1.Selection.TypeText(这是页眉文字);??? wordapplication1.Selection.ParagraphFormat.Alignment := wdAlignParagraphLeft;????? //对齐方式??? wordapplication1.Selection.PageSetup.DifferentFirstPageHeaderFooter := -1;???????????? //首页不同??? worddocument1.ActiveWindow.ActivePane.View.SeekView := wdseekcurrentpageFooter;?? //选页脚对象??? //页脚上面横线??? wordapplication1.Selection.WholeStory;??? wordapplication1.Selection.ParagraphFormat.Borders.Item(wdBorderLeft).L