🚀 go-pugleaf

Hi,

This script will remove unused character styles:

tell application "Adobe InDesign CS2"
	activate
	set theDoc to active document
	tell theDoc
		set myCharacterStyles to every character style of theDoc
		set basedOnStyles to based on of character styles 2 thru -1
		set theCount to count of myCharacterStyles
		repeat with n from (count myCharacterStyles) to 2 by -1
			set myCurrentStyle to item n of myCharacterStyles
			if myCurrentStyle is not in basedOnStyles then
				my RemoveUnusedStyle(myCurrentStyle)
			end if
		end repeat
	end tell
end tell
on RemoveUnusedStyle(myStyle)
	tell application "Adobe InDesign CS2"
		activate
		set find preferences to nothing
		set change preferences to nothing
		set theDoc to active document
		search theDoc with find attributes {applied character style:myStyle}
		tell active document
			set myFoundStyles to search theDoc with find attributes {find text:""}
			if (count myFoundStyles) = 0 then
				try
					delete myStyle
				end try
			end if
		end tell
	end tell
end RemoveUnusedStyle

I'm sorry, but I don't have the time at the moment to integrate it into the other script.

Hope it helps you though.

kev.