(DTPtechNote:1450) [AS_Indesign]段落スタイルの書き出し

[せうぞー <anonymous at unknown-host>]

>QuarkXPress3.3であった補助＞ドキュメントの情報のような機能なのですが
>InDesignCSでのドキュメン中の『段落スタイルの情報』を『テキストデータ』として書き出せないでしょうか？
>
>▼例えば『小見出し』という文字サイズ13Qで行送りが20Hのような段落スタイルがあったら…
>＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
>名前：小見出し
>文字サイズ：13Q
>行送り：20H
>==============================================
>上記のようにスタイルの情報をすべてテキストデータに書き出せないでしょうか？

ASですと、こんな感じかと思います

set tmp to ("結果" & return) as Unicode text
tell application "Adobe InDesign CS2_J"
	tell document 1
		set p_style to every paragraph style
		repeat with i in p_style
			set tmp to tmp & "＝＝＝＝＝＝＝＝＝＝＝" & return & "名前：" & name of i & return
			set tmp to tmp & "文字サイズ：" & point size of i & return
			set tmp to tmp & "行送り：" & leading of i & return & "======================" & return
		end repeat
	end tell
end tell
get tmp