Indesign CS gather used colors to new document

Has anyone ever seen, made, or used an Indesign script that will collect all actual used colors in a document. I’ve got something started but I’m stumped and probably on the wrong track anyway.
I’d like to collect either a list of all colors cmyk values and spot and transfer this info to a new document or possibly place in a slug are on a new layer.


tell application "InDesign CS"
	set myDoc to active document
	tell myDoc
		set ListOfColoredItems to every page item whose fill color is anything
		set ListOfStrokedItem to every page item whose stroke color is anything
		set ListOfAllItems to ListOfColoredItems & ListOfStrokedItems
	end tell
end tell