🚀 go-pugleaf

Rich--

Here's a more complete version, with class checking and a bit more selection processing.



tell application "InDesign 2.0.1" 
	--Assumes you have a pair selected or a text insertion point between characters. 
	--If you have a text selection that spans more than two characters, 
	--only the first two characters will be used. 
	try 
		if class of item 1 of selection is text or class of item 1 of selection is insertion point then 
			if class of item 1 of selection is text then 
				set myCount to (count characters of item 1 of selection) 
				if myCount is 2 then 
					set myText to object reference of item 1 of selection 
				else if myCount is 1 then 
					set myIndex to index of character 1 of item 1 of selection 
					set myText to object reference of characters myIndex through (myIndex + 1) of parent story of item 1 of selection 
				else 
					set myText to object reference of characters 1 through 2 of item 1 of selection 
				end if 
			else if class of item 1 of selection is insertion point then 
				set myIndex to index of item 1 of selection 
				set myText to object reference of characters (myIndex - 1) through myIndex of parent story of item 1 of selection 
			end if 
			set kerningValue to kerning value of character 1 of myText 
			set theIndex to index of myText 
			set charContents to contents of myText 
			set charFontStyle to font style of myText 
			set CharFontSize to point size of myText 
			set charFont to applied font of myText 
			set find preferences to nothing 
			set change preferences to nothing 
			set myFoundItems to search document 1 for charContents with find attributes {applied font:charFont, point size:CharFontSize, font style:charFontStyle} with case sensitive 
			repeat with myFoundItem in myFoundItems 
				--Apply kerning to the *first* character in each found pair 
				set properties of character 1 of myFoundItem to {kerning value:kerningValue} 
			end repeat 
		else 
			error 
		end if 
	on error 
		activate 
		display dialog "Please select a character pair or insertion point and try again." 
	end try 
end tell 




Thanks,

Ole