Excel VBAでブックのプロパティを取得する｜30項目の取得テスト

取得できない項目はエラーになるのでコメントにしています。

Option Explicit
Private Sub CommandButton1_Click()
'1 : タイトル
Range("E1") = ActiveWorkbook.BuiltinDocumentProperties.Item("Title")
'2 : サブタイトル
Range("E2") = ActiveWorkbook.BuiltinDocumentProperties.Item("Subject")
'3 : 作成者
Range("E3") = ActiveWorkbook.BuiltinDocumentProperties.Item("Author")
'4 : キーワード
Range("E4") = ActiveWorkbook.BuiltinDocumentProperties.Item("Keywords")
'5 : コメント
Range("E5") = ActiveWorkbook.BuiltinDocumentProperties.Item("Comments")
'6 : テンプレート
Range("E6") = ActiveWorkbook.BuiltinDocumentProperties.Item("Template")
'7 : 更新者
Range("E7") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Author")
'8 : 改訂番号
Range("E8") = ActiveWorkbook.BuiltinDocumentProperties.Item("Revision Number")
'9 : アプリケーション名
Range("E9") = ActiveWorkbook.BuiltinDocumentProperties.Item("Application Name")
'10 : 印刷日時
'Range("E10") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Print Date")
Range("E10") = ActiveWorkbook.BuiltinDocumentProperties.Item(10)
'11 : 作成日時
Range("E11") = ActiveWorkbook.BuiltinDocumentProperties.Item("Creation Date")
'12 : 更新日時
Range("E12") = ActiveWorkbook.BuiltinDocumentProperties.Item("Last Save Time")
'13 : 編集時間
Range("E13") = ActiveWorkbook.BuiltinDocumentProperties.Item("Total Editing Time")
'Range("E13") = ActiveWorkbook.BuiltinDocumentProperties.Item(13)
'14 : ページ数
Range("E14") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Pages")
'Range("E14") = ActiveWorkbook.BuiltinDocumentProperties.Item(14)
'15 : 単語数
Range("E15") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Words")
'Range("E15") = ActiveWorkbook.BuiltinDocumentProperties.Item(15)
'16 : 文字数
'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters")
'Range("E16") = ActiveWorkbook.BuiltinDocumentProperties.Item(16)
'17 : セキュリティ
Range("E17") = ActiveWorkbook.BuiltinDocumentProperties.Item("Security")
'18 : 分類
Range("E18") = ActiveWorkbook.BuiltinDocumentProperties.Item("Category")
'19 : 形式
Range("E19") = ActiveWorkbook.BuiltinDocumentProperties.Item("Format")
'20 : 管理者
Range("E20") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")
'21 : 会社名
Range("E21") = ActiveWorkbook.BuiltinDocumentProperties.Item("Manager")
'22 : バイト数
'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Bytes")
'Range("E22") = ActiveWorkbook.BuiltinDocumentProperties.Item(22)
'23 : 行数
'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Lines")
'Range("E23") = ActiveWorkbook.BuiltinDocumentProperties.Item(23)
'24 : 段落数
'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Paragraphs")
'Range("E24") = ActiveWorkbook.BuiltinDocumentProperties.Item(24)
'25: スライドの数
'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Slides")
'Range("E25") = ActiveWorkbook.BuiltinDocumentProperties.Item(25)
'26 : メモの数
'Range("E26") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Notes")
'Range("E26") = ActiveWorkbook.BuiltinDocumentProperties.Item(26)
'27 : 非表示スライドの数
'Range("E27") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Hidden Slides")
'Range("E27") = ActiveWorkbook.BuiltinDocumentProperties.Item(27)
'28 : マルチメディアクリップの数
'Range("E28") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Multimedia Clips")
'Range("E28") = ActiveWorkbook.BuiltinDocumentProperties.Item(28)
'29 : ハイパーリンクの基点
Range("E29") = ActiveWorkbook.BuiltinDocumentProperties.Item("Hyperlink Base")
'30 : 文字数（スペースを含む）
'Range("E30") = _
ActiveWorkbook.BuiltinDocumentProperties.Item("Number of Characters (with space)")
'Range("E30") = ActiveWorkbook.BuiltinDocumentProperties.Item(30)
End Sub