macro code to identify fonts character by character

What I need is a sort of "decoder" macro that can scan the text of a given cell character-by-character, identify characters of a certain font, and replace them with selected ASCII characters.

For example, suppose we had the following text:

This is an example.

The macro should identify that the 'a' in "an" and the 'p' in "example" are in Arial, and replace them with, say, 'š' and 'ž' respectively. It should NOT replace the 'a' in "example", as that character is in Times New Roman.

I intend to use this macro with Word documents as well; if you would be kind enough to point out what (if anything) I would need to do differently, that would be wonderful.

Your help is appreciated!

Please disregard. Some helpful individual was apparently trying to do the same thing I was, and posted the relevant code here (fourth question down). I have modified it for my purposes. Thanks anyway!