Replace each "§" to "µ" but not those followed by space or "."

[wali]

Hello everyone,
I need a macro which does following for the selected area:

1a. Step
Each "§" should be replaced by "µ" in whole document but not those which are followed by "." or ";" or "»" or "«" or "(" or ")" or followed by space.
1b. Step
Change the color of new added "µ" to red.

2. Step
Each "~" should be replaced by "&" but not those which have "." or ";" or "»" or "«" or "(" or ")" or space befor it.
2b. Step
Change the color of new added "&" to red.

3. Step
Show message how many "§" and how many "~" were added.



Example:
Germa§ vot§r§. ~a~e re~ §av~.


should become:

Germa§ votµr§. ~a&e re& §av&.

Thank you very much for each assistance in advance.



Posted in Word programming area as well:

[rwgrietveld]

I've made a Custom Function. I can't get the red right yet, but here is the intermediate solution:

Please Login or Register  to view this content.

If the String is in A1 then place this formula

Please Login or Register  to view this content.

in another cell

[wali]

Thank you very much. It works very good. I need this for MS word. Is it possible to have the same function as makro for MS word or for Excel?

Thank you very much

[rwgrietveld]

This is an excel forum, so maybe you have to post the same request at a word forum.

[wali]

Ok! Thank you very much. It works perfect in excel.