« [exiftool]一般的なドキュメントでexiftoolを使う【脱線】 | トップページ | [Audio Player]SWF Audio Player【テスト】 »

[AppleScript]Microsoft Officeのメタデータを書き込む

560x230_top_6


なんだか
最近メタデータ祭りみたいになってますが...笑
本来メタデータは
大量にデータやファイルがある場合に
目的のデータを探しやすくするための補助ですので
基本的には、いつもメタデータを添付なり記述なり
するべきなんでしょうが....汗
まぁねぇ
そう〜いつもいつもはやらないですよね...笑

参照はexiftoolでも可能[LINK]新しいウィンドで開きますですので
参照して分類したりするのに役には立ちますね。

 

では本題

Microsoft Officeのドキュメントに
メタデータ(プロパティ)を書き込みます。


 

Microsoft Officeのメタデータ(プロパティ)は
Macの場合はオートメーターを使うのが一番早いし
確実なのかな?と思いますが


アップルスクリプトでやってみましょう

Microsoft Officeのリファレンスを見ると
以下のようなオプションを指定可能になっています。

Title
Subject
Author
Keywords
Comments
Template
Last Author
Revision Number
Application Name
Last Print Date
Creation Date
Last Save Time
Total Editing Time
Number of Pages
Number of Words
Number of Characters
Security
Category
Format Manager
Company
Number of Bytes
Number of Lines
Number of Paragraphs
Number of Slides
Number of Notes
Number of Hidden Slides
Number of Multimedia Clips

まぁ必要そうな所だけピックアップして
スクリプトにしました。

後は好みで編集すれば良いですね。

 



set theTitle to "タイトル" as Unicode text ---タイトル
set theSubject to "サブタイトル" as Unicode text --サブタイトル
set theAuthor to "作成者" as Unicode text --作成者
set theKeywords to "キーワード" as Unicode text --キーワード
set theComments to "コメント" as Unicode text --コメント
set theTemplate to "テンプレート" as Unicode text --テンプレート名(基本的にはブラング)
set theLastAuthor to "修正者" as Unicode text --修正者
set theCategory to "カテゴリ" as Unicode text --分類カテゴリ
set theRevisionNumber to "1" as Unicode text --リビジョン番号(数字のみ)
set theManager to "管理者" as Unicode text --管理者
set theCompany to "会社名" as Unicode text --会社名

set theFormat to "計算書" as Unicode text --プレゼンテーションの形式


tell application "Microsoft Excel"
activate
set theTitle to name of document 1

tell active workbook

set (value of document property "Title") to theTitle as Unicode text
set (value of document property "Subject") to theSubject as Unicode text
set (value of document property "Author") to theAuthor as Unicode text
set (value of document property "Keywords") to theKeywords as Unicode text
set (value of document property "Comments") to theComments as Unicode text
set (value of document property "Template") to theTemplate as Unicode text
set (value of document property "Last Author") to theLastAuthor as Unicode text
set (value of document property "Revision Number") to theRevisionNumber as Unicode text
set (value of document property "Category") to theCategory as Unicode text
set (value of document property "Manager") to theManager as Unicode text
set (value of document property "Company") to theCompany as Unicode text

set (value of document property "Format") to theFormat as Unicode text
set (value of document property "Security") to false

end tell

end tell

 

ダウンロードはこちらから

「Office4Meta.scpt.zip」をダウンロード[LINK]新しいウィンドで開きます

「Office4Meta.rtf」をダウンロード[LINK]新しいウィンドで開きます

 


おまけ
プリントダイアログを出す

tell application "Microsoft Excel"
show (get dialog (dialog print))
end tell


「print.scpt.zip」をダウンロード

 

設定値を""にして実行すれば
メタデータを削除する事になりますので
ISMS等で厳しい職場ではメール添付前に必ず実行!
とかにすると良いですね。



set theTitle to "" as Unicode text ---タイトル
set theSubject to "" as Unicode text --サブタイトル
set theAuthor to "" as Unicode text --作成者
set theKeywords to "" as Unicode text --キーワード
set theComments to "" as Unicode text --コメント
set theTemplate to "" as Unicode text --テンプレート名(基本的にはブラング)
set theLastAuthor to "" as Unicode text --修正者
set theCategory to "" as Unicode text --分類カテゴリ
set theRevisionNumber to "1" as Unicode text --リビジョン番号(数字のみ)
set theManager to "" as Unicode text --管理者
set theCompany to "" as Unicode text --会社名

set theFormat to "" as Unicode text --プレゼンテーションの形式


tell application "Microsoft Excel"
activate
set theTitle to name of document 1

tell active workbook

set (value of document property "Title") to theTitle as Unicode text
set (value of document property "Subject") to theSubject as Unicode text
set (value of document property "Author") to theAuthor as Unicode text
set (value of document property "Keywords") to theKeywords as Unicode text
set (value of document property "Comments") to theComments as Unicode text
set (value of document property "Template") to theTemplate as Unicode text
set (value of document property "Last Author") to theLastAuthor as Unicode text
set (value of document property "Revision Number") to theRevisionNumber as Unicode text
set (value of document property "Category") to theCategory as Unicode text
set (value of document property "Manager") to theManager as Unicode text
set (value of document property "Company") to theCompany as Unicode text

set (value of document property "Format") to theFormat as Unicode text
set (value of document property "Security") to false

end tell

end tell


 

余談
今日ひさしぶりにアクセス解析を見たら
9割Windowsな方のアクセス
これだけMacな内容なのになぁ〜トホホ

|

« [exiftool]一般的なドキュメントでexiftoolを使う【脱線】 | トップページ | [Audio Player]SWF Audio Player【テスト】 »

Office」カテゴリの記事

コメント

この記事へのコメントは終了しました。