Officeファイルのプロパディー値の取得方法
VBA
Published: 2018-03-28

Officeファイルにはエクスプローラー上の右クリックで参照できる特有のプロパティー値が複数設定可能です。ファイルを開いてファイルメニューからも参照や編集可能です。

 

こんな感じでカテゴリやキーワードなど設定出来ます。昔、私はアプリケーションのバージョン番号管理に使用していました。

この値を自由に参照できるサンプルコードを記載します。

読み込むファイルはパワーポイントファイルを想定しています。

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
Sub read_test()
    res = get_ppt_info("ファイル名", "フォルダのパス")
    MsgBox res
End Sub

Function get_ppt_info(sFile As String, sPath As String) As String
   
    Dim ppDoc As Object
      
    'オブジェクトを取得
    Set ppDoc = GetObject(sPath & "/" & sFile)
      
    '各種取得
    strTitle = ppDoc.BuiltinDocumentProperties(1).Value
    strTag = ppDoc.BuiltinDocumentProperties(4).Value
    strCategory = ppDoc.BuiltinDocumentProperties(18).Value
    strAuthor = ppDoc.BuiltinDocumentProperties(3).Value
    strLastSaveTime = ppDoc.BuiltinDocumentProperties(12).Value
    strCreationDate = ppDoc.BuiltinDocumentProperties(11).Value
    strLastAuthor = ppDoc.BuiltinDocumentProperties(7).Value
    
    get_ppt_info = "Title:" & strTitle & ",作成者:" & strAuthor & ",作成日:" & strCreationDate & ",キーワード:" & strTag & ",分類:" & strCategory & ",最終更新者:" & strLastAuthor & ",最終更新日時:" & strLastSaveTime & ","
   'オブジェクト変数を解放
   Set ppDoc = Nothing
  
End Function

尚、上のコードはDSO(https://www.microsoft.com/en-us/download/details.aspx?id=8422)をインストールした前提で機能致します。

  1. Title:タイトル
  2. Subject:サブタイトル
  3. Author:作成者
  4. Keywords:キーワード
  5. Comments:コメント
  6. Template:テンプレート
  7. Last Author:更新者
  8. Revision Number:改訂番号
  9. Application Name:アプリケーション名
  10. Last Print Date:印刷日時
  11. Creation Date:作成日時
  12. Last Save Time:更新日時
  13. Total Editing Time:編集時間
  14. Number of Pages:ページ数
  15. Number of Words:単語数
  16. Number of Characters:文字数
  17. Security:セキュリティ
  18. Category:分類
  19. Format:形式
  20. Manager:管理者
  21. Company:会社名
  22. Number of Bytes:バイト数
  23. Number of Lines:行数
  24. Number of Paragraphs:段落数
  25. Number of Slides:スライドの数
  26. Number of Notes:メモの数
  27. Number of Hidden Slides:非表示スライドの数
  28. Number of Multimedia Clips:マルチメディアクリップの数
  29. Hyperlink Base:ハイパーリンクの基点
  30. Number of Characters (with space):文字数(スペースを含む)
気に入ってくれたら下のボタンで広めて下さいね気に入ってくれたら下のボタンで広めて下さいね

関連記事