🚀 go-pugleaf

Rich--

I understand the need to search for pairs, I was just making a joke about using the UI vs. using scripting. How about something like this:



tell application "InDesign 2.0.1" 
	--Assumes you have a pair selected. 
	set myText to object reference of item 1 of selection 
	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 
end tell 
</end tell>

I have to note--most of the time, I find that turning Optical Kerning on obviates the need for this sort of searching. That said, not all fonts work well with the Optical Kerning method.

Thanks,

Ole