InDesign | 雑スクリプト

インデザインを保存したバージョンで開く。

2016年7月3日 tetsu AppleScript, InDesign, OS X

インデザインを保存したバージョンで開く場合、

すでに、「Glee」という素晴らしいフリーウエアが存在する訳ですが、

ネットに、いい素材があったので、

また、他人様のお力をお借りして自分でも作ってみました。

インデザインだけでなく、

イラストレーターなどにも使えるかもです。

インデザインのクリエーターは、

正しく取得できているか分かりませんし、

「Glee」のように細かなバージョンまでは取得できませんので、

あしからず…

イラストレーターで使用する場合、

プリフライト機能を組み込んだりしても、

いいかも知れません。

なお今回は、インデザインCS4、CS5、CS6がインストールされていることを

前提にしたスクリプトです。

使用する方は、各自の環境に合わせて書き換えてください。

ちなみに、先人達から見たら今さらでしょうけど、

スクリプトオブジェクトなるものも初めて使用しました。

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

下記のAppleScriptコードを入力して、

アプリケーション形式で「inDesingOpener」などの適当な名前で保存。

script DefaultApplicaiton
	property application_name : "Finder"
	property extension_list : {}
	
	on open theseItems
		repeat with thisItem in theseItems
			tell application id "com.apple.SystemEvents"
				set filename to name of thisItem
				set ext to name extension of thisItem
			end tell
			
			set application_name to my inddVesionCheck(thisItem)
			
			if my extension_list contains ext then
				tell application (my application_name)
					activate
					open thisItem
				end tell
			else
				try
					tell parent to open theseItems
				on error
					tell application application_name
						activate
						display dialog ("拡張子「" & ext & "」のファイルを開くアプリケーションは設定されていません。代わりに Finder で開いてみます") with icon 2
						open thisItem
					end tell
				end try
			end if
		end repeat
	end open
end script


script OpenInCotEditor
	property parent : DefaultApplicaiton
	--property application_name : "Adobe InDesign CS6"
	property extension_list : {"indd"}
	--property extension_list : {"txt", "html", "applescript", "md", "py"}
end script


on open theseItems
	with timeout of 600 seconds --10分間は待つ。
		tell OpenInCotEditor
			activate
			delay 0.1
			open theseItems
			activate
		end tell
	end timeout
end open


on inddVesionCheck(thisItem)
	set POSIXpath to quoted form of POSIX path of thisItem
	
	try
		set myNumber to do shell script "sed -n '/<xmp:CreatorTool>Adobe InDesign /=' " & POSIXpath
	on error
		set myNumber to ""
	end try
	if myNumber = "" then
		try
			set myNumber to do shell script "sed -n '/<xap:CreatorTool>Adobe InDesign /=' " & POSIXpath
		on error
			set myNumber to ""
		end try
	end if
	try
		set T1 to last paragraph of myNumber
		set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath
--set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath & " | sed -e 's/<[^>]*>//g' | sed -e 's/^[ ]*//g' "
	on error
		set ResVersion to ""
	end try
	
	
	--↓↓↓各自の環境に合わせて書き換えてください。
	if ResVersion contains "Adobe InDesign 6.0" then
		set application_name to "Adobe InDesign CS4"
		
	else if ResVersion contains "Adobe InDesign 7.0" then
		set application_name to "Adobe InDesign CS5"
		
	else if ResVersion contains "Adobe InDesign CS6" then
		set application_name to "Adobe InDesign CS6"
	else
		set application_name to "Adobe InDesign CS6"
	end if
	
	return application_name
	
end inddVesionCheck

script DefaultApplicaiton

property application_name : "Finder"

property extension_list : {}

on open theseItems

repeat with thisItem in theseItems

tell application id "com.apple.SystemEvents"

set filename to name of thisItem

set ext to name extension of thisItem

end tell

set application_name to my inddVesionCheck(thisItem)

if my extension_list contains ext then

tell application (my application_name)

activate

open thisItem

end tell

else

try

tell parent to open theseItems

on error

tell application application_name

activate

display dialog ("拡張子「" & ext & "」のファイルを開くアプリケーションは設定されていません。代わりに Finder で開いてみます") with icon 2

open thisItem

end tell

end try

end if

end repeat

end open

end script

script OpenInCotEditor

property parent : DefaultApplicaiton

--property application_name : "Adobe InDesign CS6"

property extension_list : {"indd"}

--property extension_list : {"txt", "html", "applescript", "md", "py"}

end script

on open theseItems

with timeout of 600 seconds --10分間は待つ。

tell OpenInCotEditor

activate

delay 0.1

open theseItems

activate

end tell

end timeout

end open

on inddVesionCheck(thisItem)

set POSIXpath to quoted form of POSIX path of thisItem

try

set myNumber to do shell script "sed -n '/<xmp:CreatorTool>Adobe InDesign /=' " & POSIXpath

on error

set myNumber to ""

end try

if myNumber = "" then

try

set myNumber to do shell script "sed -n '/<xap:CreatorTool>Adobe InDesign /=' " & POSIXpath

on error

set myNumber to ""

end try

end if

try

set T1 to last paragraph of myNumber

set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath

--set ResVersion to do shell script "echo | sed -n -e " & T1 & "p " & POSIXpath & " | sed -e 's/<[^>]*>//g' | sed -e 's/^[ ]*//g' "

on error

set ResVersion to ""

end try

--↓↓↓各自の環境に合わせて書き換えてください。

if ResVersion contains "Adobe InDesign 6.0" then

set application_name to "Adobe InDesign CS4"

else if ResVersion contains "Adobe InDesign 7.0" then

set application_name to "Adobe InDesign CS5"

else if ResVersion contains "Adobe InDesign CS6" then

set application_name to "Adobe InDesign CS6"

else

set application_name to "Adobe InDesign CS6"

end if

return application_name

end inddVesionCheck

【使用方法】

古いバージョンのInDesignファイルの

情報を見ます( ファイルを選択して、command + i )。

その中の「このアプリケーションで開く：」の項目で

作成したスクリプト(アプリケーション)を設定します。（上図、赤枠）

それでは、動作確認に入ります。

いま設定したInDesignファイルをダブルクリックして開きます。

古いバージョンのInDesignが起動し、

問題なくファイルが開くようでしたら正常に動作しています。

さらに、すべてのInDesignファイルを

作成したスクリプト(アプリケーション)で開くようにします。

再度、InDesignファイルの情報を見て、

「すべてを変更…」をクリックすると、（上図、青枠）

すべてのInDesignファイルが

作成したスクリプト(アプリケーション)に関連づけられます。

（まあ、長々と書いていますが「Glee」と一緒です。）

【注意点】

上手く動作しなかった場合は、

Dockで起動している作成したスクリプト(アプリケーション)を

右クリック or クリック長押しなどで強制終了してください。

【少し修正】

InDesignだけなら右側の方がいいので…

‘/<xmp:CreatorTool>/=’　＞　’/<xmp:CreatorTool>Adobe InDesign /=’
‘/<xap:CreatorTool>/=’　＞　’/<xap:CreatorTool>Adobe InDesign /=’

参考情報

ASH Planning: AppleScript でファイルを開いてみましょ

ASH Planning: スクリプトオブジェクトを理解してみる

鳶嶋工房 / AppleScript / 入門 / スクリプトオブジェクト

Glee | for InDesign

インデザインで、ドキュメントのフォント情報を調べる。

2016年2月21日 tetsu AppleScript, InDesign, OS X

今回は、フォント収集スクリプト作成にあたって、

まず、フォント情報を調べる必要があったので作りました。

インデザインCS5，CS6で動きます。

たぶんCS4でも大丈夫だと思いますが…

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

下記のAppleScriptコードを入力して、

スクリプト形式で「ドキュメントのフォント情報一覧.scpt」などの適当な名前で保存。

▼AppleScript

tell application "Adobe InDesign CS5"
	
	if (count document) = 0 then
		activate
		display dialog "ドキュメントを開いてください。" & return & return buttons {"OK"} default button 1 giving up after 55 with icon 0
		return
	end if
	
	tell document 1
		set allFonts to fonts
		--set ATCFonts to composite fonts
		--font type > ATC > Adobe Type Composer
		
		set myText to ""
		repeat with i from 1 to count allFonts
			set FontProperties to properties of font i
			set myText to myText & (my fontInfo(FontProperties) as Unicode text) & return & return
		end repeat
	end tell
	
end tell

tell application "TextEdit"
	make new document
	set name of front window to "ドキュメントのフォント情報一覧"
	set text of front document to myText as Unicode text
	--set size of every word of document 1 to 13
	activate
end tell


on fontInfo(FontProperties)
	tell application "Adobe InDesign CS5"
		
		set infotext to "" & return
		set infotext to infotext & name of FontProperties & return
		set infotext to infotext & "----------------------------------------------------------------------------------------------" & return
		try
			set infotext to infotext & "allow editable embedding：" & allow editable embedding of FontProperties & return
		end try
		try
			set infotext to infotext & "allow outlines：" & allow outlines of FontProperties & return
		end try
		try
			set infotext to infotext & "allow PDF embedding：" & allow PDF embedding of FontProperties & return
		end try
		try
			set infotext to infotext & "allow printing：" & allow printing of FontProperties & return
		end try
		try
			set infotext to infotext & "font family：" & font family of FontProperties & return
		end try
		try
			set infotext to infotext & "font style name：" & font style name of FontProperties & return
		end try
		try
			set infotext to infotext & "font style name native：" & font style name native of FontProperties & return
		end try
		try
			set infotext to infotext & "font type：" & font type of FontProperties & return
		end try
		try
			set infotext to infotext & "full name：" & full name of FontProperties & return
		end try
		try
			set infotext to infotext & "full name native：" & full name native of FontProperties & return
		end try
		try
			set infotext to infotext & "index：" & index of FontProperties & return
		end try
		try
			set infotext to infotext & "location：" & location of FontProperties & return
		end try
		try
			set infotext to infotext & "name：" & name of FontProperties & return
		end try
		--try
		--set infotext to infotext & "object reference：" & name of (object reference of FontProperties) & return
		--end try
		try
			set infotext to infotext & "ordering：" & ordering of FontProperties & return
		end try
		--try
		--set infotext to infotext & "parent：" & name of parent of FontProperties & return
		--end try
		try
			set infotext to infotext & "platform name：" & platform name of FontProperties & return
		end try
		try
			set infotext to infotext & "PostScript name：" & PostScript name of FontProperties & return
		end try
		try
			set infotext to infotext & "registry：" & registry of FontProperties & return
		end try
		try
			set infotext to infotext & "restricted printing：" & restricted printing of FontProperties & return
		end try
		try
			set infotext to infotext & "status：" & status of FontProperties & return
		end try
		try
			set infotext to infotext & "version：" & version of FontProperties & return
		end try
		try
			set infotext to infotext & "writing script：" & writing script of FontProperties & return
		end try
		
		return infotext
	end tell
end fontInfo

100

101

102

103

104

105

106

107

108

109

110

tell application "Adobe InDesign CS5"

if (count document) = 0 then

activate

display dialog "ドキュメントを開いてください。" & return & return buttons {"OK"} default button 1 giving up after 55 with icon 0

return

end if

tell document 1

set allFonts to fonts

--set ATCFonts to composite fonts

--font type > ATC > Adobe Type Composer

set myText to ""

repeat with i from 1 to count allFonts

set FontProperties to properties of font i

set myText to myText & (my fontInfo(FontProperties) as Unicode text) & return & return

end repeat

end tell

tell application "TextEdit"

make new document

set name of front window to "ドキュメントのフォント情報一覧"

set text of front document to myText as Unicode text

--set size of every word of document 1 to 13

activate

end tell

on fontInfo(FontProperties)

tell application "Adobe InDesign CS5"

set infotext to "" & return

set infotext to infotext & name of FontProperties & return

set infotext to infotext & "----------------------------------------------------------------------------------------------" & return

try

set infotext to infotext & "allow editable embedding：" & allow editable embedding of FontProperties & return

end try

try

set infotext to infotext & "allow outlines：" & allow outlines of FontProperties & return

end try

try

set infotext to infotext & "allow PDF embedding：" & allow PDF embedding of FontProperties & return

end try

try

set infotext to infotext & "allow printing：" & allow printing of FontProperties & return

end try

try

set infotext to infotext & "font family：" & font family of FontProperties & return

end try

try

set infotext to infotext & "font style name：" & font style name of FontProperties & return

end try

try

set infotext to infotext & "font style name native：" & font style name native of FontProperties & return

end try

try

set infotext to infotext & "font type：" & font type of FontProperties & return

end try

try

set infotext to infotext & "full name：" & full name of FontProperties & return

end try

try

set infotext to infotext & "full name native：" & full name native of FontProperties & return

end try

try

set infotext to infotext & "index：" & index of FontProperties & return

end try

try

set infotext to infotext & "location：" & location of FontProperties & return

end try

try

set infotext to infotext & "name：" & name of FontProperties & return

end try

--try

--set infotext to infotext & "object reference：" & name of (object reference of FontProperties) & return

--end try

try

set infotext to infotext & "ordering：" & ordering of FontProperties & return

end try

--try

--set infotext to infotext & "parent：" & name of parent of FontProperties & return

--end try

try

set infotext to infotext & "platform name：" & platform name of FontProperties & return

end try

try

set infotext to infotext & "PostScript name：" & PostScript name of FontProperties & return

end try

try

set infotext to infotext & "registry：" & registry of FontProperties & return

end try

try

set infotext to infotext & "restricted printing：" & restricted printing of FontProperties & return

end try

try

set infotext to infotext & "status：" & status of FontProperties & return

end try

try

set infotext to infotext & "version：" & version of FontProperties & return

end try

try

set infotext to infotext & "writing script：" & writing script of FontProperties & return

end try

return infotext

end tell

end fontInfo

【置き場】

インデザインのスクリプトパネルに配置。

スクリプトパネルを表示させた状態で、「ユーザー」を右クリック　＞　Finder で表示で、

置き場が表示されます。

【使い方】

インデザインが前面に表示された状態で、

スクリプトパネルから、作成したスクリプトをから実行すると、

下図のように表示されます。

処理に時間がかかるため、表示までに1分位かかるかも知れません。

参考情報

http://indesign.cs5.xyz/iddomjs/Font.html

Indesign Script – Liste mit Schriften im Dokument ausgeben

メタデータを利用してインデザインを開かずに、リンクパスを調べる。

2016年2月17日 tetsu AppleScript, InDesign, OS X

インデザインファイルをExifToolで調べると

いろんな情報が含まれている訳ですが、

今回は、リンクファイルのパスを調べてみました。

ほとんど検証してないので、

使用する際は、ご注意ください。

おそらくCS5、CS6のインデザインファイルで使用可能です。

これを上手く発展させていけば、

インデザイン、イラストレーターを開かずに、

リンクファイルを収集できるかも知れません。

【作成方法】

ユーティリティ　＞　AppleScript エディタを起動。

下記のAppleScriptコードを入力して、

アプリケーション形式で「indd_LinkPath_List」などの適当な名前で保存。

▼AppleScript（ドラッグ＆ドロップタイプ）

on open dorp
	set fileLinkList to {}
	repeat with dorpFile in dorp
		try
			set theFilePath to dorpFile as string
			set POSIXpath to quoted form of POSIX path of dorpFile
			set Separation to "----------------------------------------------"
			set XMPtext to do shell script "sed -n '/xmpMM:Ingredients/=' " & POSIXpath
			
			if XMPtext ≠ "" then
				set inddName to name of (info for dorpFile)
				set XMPtextCount2 to count paragraphs of XMPtext
				set XMPtextCount1 to XMPtextCount2 - 1
				
				set paragraph1 to XMPtextCount1
				set paragraph2 to XMPtextCount2
				set T1 to paragraph paragraph1 of XMPtext
				set T2 to paragraph paragraph2 of XMPtext
				
				try
					set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<stRef:filePath>\\(.*\\)<\\/stRef:filePath>/\\1/p' " & POSIXpath
					set swatchNameTEXT to (my decodeURL(swatchNameTEXT0)) as Unicode text
					set swatchNameTEXT to repChar(swatchNameTEXT, ",", return) of me
					set swatchNameTEXT to repChar(swatchNameTEXT, "file://", "") of me
				end try
			else
				set swatchNameTEXT to "No info"
			end if
			
			set the end of fileLinkList to return & inddName & return & Separation & return & swatchNameTEXT & return & return
			
		end try
		
		
	end repeat
	
	BeepVolume() of me
	
	if fileLinkList ≠ {} then
		tell application "TextEdit"
			activate
			set text of (make new document) to (fileLinkList as text)
		end tell
	else
		activate
		display dialog "No info"
	end if
end open


--文字置換ルーチン
on repChar(origText, targStr, repStr)
	set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}
	set temp to text items of origText
	set AppleScript's text item delimiters to repStr
	set res to temp as text
	set AppleScript's text item delimiters to txdl
	return res
end repChar


on BeepVolume()
	set getvolume to get volume settings
	set outVol to output volume of getvolume
	set myVol to outVol / (100 / 7)
	set volume 0.7
	beep 1
	delay 0.5
	beep 1
	set volume myVol
end BeepVolume

on decodeURL(str)
	set scpt to "php -r 'echo urldecode(\"" & str & "\");'"
	return do shell script scpt
end decodeURL

on open dorp

set fileLinkList to {}

repeat with dorpFile in dorp

try

set theFilePath to dorpFile as string

set POSIXpath to quoted form of POSIX path of dorpFile

set Separation to "----------------------------------------------"

set XMPtext to do shell script "sed -n '/xmpMM:Ingredients/=' " & POSIXpath

if XMPtext ≠ "" then

set inddName to name of (info for dorpFile)

set XMPtextCount2 to count paragraphs of XMPtext

set XMPtextCount1 to XMPtextCount2 - 1

set paragraph1 to XMPtextCount1

set paragraph2 to XMPtextCount2

set T1 to paragraph paragraph1 of XMPtext

set T2 to paragraph paragraph2 of XMPtext

try

set swatchNameTEXT0 to do shell script "echo | sed -n -e '" & T1 & ", " & T2 & "s/^.*<stRef:filePath>\\(.*\\)<\\/stRef:filePath>/\\1/p' " & POSIXpath

set swatchNameTEXT to (my decodeURL(swatchNameTEXT0)) as Unicode text

set swatchNameTEXT to repChar(swatchNameTEXT, ",", return) of me

set swatchNameTEXT to repChar(swatchNameTEXT, "file://", "") of me

end try

else

set swatchNameTEXT to "No info"

end if

set the end of fileLinkList to return & inddName & return & Separation & return & swatchNameTEXT & return & return

end try

end repeat

BeepVolume() of me

if fileLinkList ≠ {} then

tell application "TextEdit"

activate

set text of (make new document) to (fileLinkList as text)

end tell

else

activate

display dialog "No info"

end if

end open

--文字置換ルーチン

on repChar(origText, targStr, repStr)

set {txdl, AppleScript's text item delimiters} to {AppleScript's text item delimiters, targStr}

set temp to text items of origText

set AppleScript's text item delimiters to repStr

set res to temp as text

set AppleScript's text item delimiters to txdl

return res

end repChar

on BeepVolume()

set getvolume to get volume settings

set outVol to output volume of getvolume

set myVol to outVol / (100 / 7)

set volume 0.7

beep 1

delay 0.5

beep 1

set volume myVol

end BeepVolume

on decodeURL(str)

set scpt to "php -r 'echo urldecode(\"" & str & "\");'"

return do shell script scpt

end decodeURL

【使い方】

作成したスクリプトに調べたいインデザインファイルを

ドラッグ＆ドロップすると下図のように表示されます。

参考情報

Webで利用される様々な文字列エンコードを扱うためのAppleScriptいろいろ

[FORCE]: CharacterEntity