-- Dieter May <dm at mayart.de>, December 2009
-- Setzt alle Zahlen im aktiven Dokument auf optische Unterschneidung.
-- Bei Open-Type-Schriften die unterschnittene Zahlen haben, besser die OTF-Eigenschaft auf Proportional Lininig stellen.

try
	set number_list to {"1", "2", "3", "4", "5", "6", "7", "8", "9", "0"}
	tell application "Adobe Illustrator"
		tell current document
			set text_frame_count to (count of text frames)
			if (text_frame_count > 0) then
				repeat with this_number in number_list
					repeat with this_counter from 1 to text_frame_count
						if (((contents of text frame this_counter) as string) contains this_number) then
							set kerning method of (characters of text frame this_counter whose contents = this_number) to optical
						end if
					end repeat
				end repeat
			end if
		end tell
	end tell
on error error_message
	display dialog error_message
end try