Superscript Macro

I am trying to write a macro for Word 2003 that will change all of the numbers (“^#”) in a document to superscript. Please help. Thank you!