Function to retrieve high value Unicode

[NobodysPerfect]

Hi to all,



After a long time of googling, I'm desperately looking for a function to retrieve high value Unicode for some selected character.

Whenever you insert an emoji icon (i.e. 😏) the "Segoe UI Symbol" font will be assigned automatically. As usual you can use «Alt+C» to display the respective Unicode value. There are various functions to retrieve Unicode values, but for these high value Unicode characters they fail: only incorrect or even no values.

If you want to search/replace these characters, you can of course copy the character into the S&R dialog and then start S&R – but that approach does not make sense for a VBA solution.

You can toggle the character code (Selection.ToggleCharacterCode = «Alt+C») and then use the "1F60F" (= 😏) string for S&R, but that means to walk through the complete document before, select the icon and toggle the code, as the command only works with 'Selection'. Again that does not make sense with VBA.

Any help, link or idea would be appreciated.


Thanks
NP