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

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