Is there a WordPerfect macro to convert a phone number with letters to digits?

I'm looking to find a WordPerfect macro which will convert a phone number in letters (someone's idea to help you remember their phone number) into digits.  Thanks.