Help to find a font

Hi i am looking for a macro that can find a specific font being used on which page of my document. Please help