Function to retrieve high value Unicode

macropod · #1 12-13-2014, 02:23 PM

Perhaps this is what you're after:

Code:

Sub GetSymbolAttributes()
Dim SelFont, SelCharNum
With Selection
  With Dialogs(wdDialogInsertSymbol)
    SelFont = .Font
    SelCharNum = .CharNum
  End With
End With
MsgBox SelFont & vbTab & SelCharNum
End Sub

NobodysPerfect · #2 12-14-2014, 02:54 AM

Hi Paul,

unfortunately this 'old' mvp piece of code does not work for high value Unicode characters.

Insert a Symbol: Segoe UI Symbol > Extended Characters - Plane 1 > e.g. smily character code "1F60F". Then run the code and you will get "(normal text)" as Font.Name and a a negative number which cannot be used for further processing.

Any other idea ?
NP

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Save Word doc in unicode html (utf-8)	rybrns	Word	5	09-26-2011 02:18 PM
ANSI-ost to unicode-ost	jeff13	Outlook	0	01-07-2010 11:48 AM
Unicode Big endian support	Rose44	Excel	0	09-04-2009 11:59 PM
Unicode Encoding Type	Rose44	Excel	2	08-09-2009 09:05 PM
Unicode problem in Subject list	salanalani	Outlook	0	01-20-2006 12:48 PM