🚀 go-pugleaf

I added an option for users who don't have a pair selected, but just have the insertion point inbetween the characters. This seems to work very nicely. I hope this helps someone else as well.

tell application "InDesign 2.0.2"
	try
		set myText to item 1 of selection
		set kerningValue to kerning value of myText
		set charContents to characters (theIndex - 1) thru theIndex of parent story of myText
		set theIndex to index of myText
	on error
		set myText to object reference of item 1 of selection
		set kerningValue to kerning value of myText
		set charContents to contents of myText
		set theIndex to index of myText
	end try
	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
		set properties of character 1 of myFoundItem to {kerning value:kerningValue}
	end repeat
end tell

Thanks for the help.