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.

Thanks
Jeff

tell application "InDesign CS"
	activate
	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