excel2007怎样插入类似于word的自定义文档属性解决方法

Sub WbBuiltin()    With ThisWorkbook        .BuiltinDocumentProperties("Title") = ""        .BuiltinDocumentProperties("Subject") = ""        .BuiltinDocumentProperties("Author") = ""        .BuiltinDocumentProperties("Company") = ""        .BuiltinDocumentProperties("Comments") = ""        .BuiltinDocumentProperties("Keywords") = ""    End WithEnd Sub