delphi中制作报表(WORD)之我见

领测软件测试网

var i,j:integer;Template,NewTemplate,wdDocumentType,wdVisible 
,ItemIndex:OleVariant;
FileName, ConfirmConversions, count,
     ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate,
     Revert, WritePasswordDocument, WritePasswordTemplate, Format 
:olevariant;

    procedure setfont(size,bold,underline:integer);
    //设字体的过程
    begin
       WordFont.ConnectTo(WordDocument.Sentences.Get_Last.Font);
       WordFont.Size := size;//24;
       WordFont.Bold := bold;//1;
       WordFont.Underline := underline;//2
       //也可以设置字体的其它属性：
       //WordFont.Italic := 0;//1;
       // WordFont.Emboss := 1;

文章来源于领测软件测试网 https://www.ltesting.net/