Delphi6的.尤其是Encoding应该怎么赋值?谢谢!
function  Open(var FileName: OleVariant; var ConfirmConversions: OleVariant; 
                   var ReadOnly: OleVariant; var AddToRecentFiles: OleVariant; 
                   var PasswordDocument: OleVariant; var PasswordTemplate: OleVariant; 
                   var Revert: OleVariant; var WritePasswordDocument: OleVariant; 
                   var WritePasswordTemplate: OleVariant; var Format: OleVariant; 
                   var Encoding: OleVariant; var Visible: OleVariant): WordDocument;

解决方案 »

  1.   

    var 
    filename, confirmconversions, readonly, addtorecentfiles, 
    passworddocument, passwordtemplate, revert, 
    writepassworddocument, writepasswordtemplate, format: olevariant; filename := 'c:\aaaaa.doc'; 
    confirmconversions := false; 
    readonly := false; 
    addtorecentfiles := false; 
    passworddocument := ''; 
    passwordtemplate := ''; 
    revert := true; 
    writepassworddocument := ''; 
    writepasswordtemplate := ''; 
    format := wdopenformatdocument; wordapplication.documents.open( filename, confirmconversions, 
    readonly, addtorecentfiles, passworddocument, passwordtemplate, 
    revert, writepassworddocument, writepasswordtemplate, format );