Finding and replacing symbols

[Hans L]

In the life-saving article on page

http://word.mvps.org/faqs/MacrosVBA/FindReplaceSymbols.ht

(Word MVP FAQs), Dave Rado offers Word macros for finding upper uniocode
characters or symbols that use decorative fonts (such as Symbol or Wingdings).

In the macros FindDeltaSymbols and ReplaceAllDeltaSymbolsWithBetaSymbols,
one goes into the macros and enters the number and font of the character one
wants to find or the characters one wants to find and replace with.

My questions is if anyone has developed these mactos furthers so that a
window/box appears where one can enter the character number(s) and font(s),
click OK and be on one's way?

Thanks!

Hans L