Is there a script that rounds type to the nearest pt. size?

I have to re-size several documents and need to go through layer by layer to round the type to the nearest pt. size (i.e. 12.3pt --> 12pt, 12.6pt -->13 pt). Its pretty time consuming and I was hoping there might be a script that could speed up the process.

Thanks,

Dave