macro - find and give total of specific color object

Is there a tool to find and provide a total number of objects given a specific color thru all pages in a doc?