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;

文章來源于領測軟件測試網 http://www.kjueaiud.com/