Unicode Symbols - Display the Symbols in Word Document Convert the Unicode Numbers

[dj44]

Hi folks,

good midweek.

I have always had this problem, but i always left it be, as i could cope with a few sysmbols, and it didnt seem so much of a problem.


Well today I've been hunting down some u symbols, and I tried to make them in to vba but unfortunatley I couldn’t work out how to do it.

Thes are unicode numbers, the display symbol has gone missing from the document so i was trying to replace them.

and i tried to google and get them back, but then it wouldnt work in word, i dont know why.

I searched everywhere in the symbol box but that didnt work either.
Then it was ASCII hex or decimal - so that was even more confusing.

These are some of the unicode numbers.
U+2326
U+2327
U+2328
U+2329

I am trying to output next to it the actual symbol - the nice looking friendly symbol.

Sub UnicodeSymbols()


  Dim oRng As Word.Range
  Dim oChr As Range
  Dim oPara As Paragraph



  For Each oChr In ActiveDocument.Range.Characters   'chrW(U+2326)

    
  
   oRng.InsertAfter vbCr oChr
   oRng.Collapse wdCollapseEnd

End Sub

' Greg Maxey Function -
Function GetSymbolValues(oRng) As String
    Dim strFont As String
    Dim lngANSI As Long, varHex As Variant
    oRng.Select
    With Selection
        With Dialogs(wdDialogInsertSymbol)
            strFont = .Font
            lngANSI = .CharNum
            varHex = Hex(lngANSI)
        End With
    End With
    GetSymbolValues = lngANSI & "|" & strFont
lbl_Exit:
    Exit Function

End Function

    http://www.vbaexpress.com/forum/showthread.php?58534-Find-unique-characters

I just wanted to convert these numbers to the word display symbol

It would be such a relief if i can get the display symbol - i have searched every where today

is this at all possible?

To convert these u numbers to the actual symbol?

[Paul_Hossler]

In not sure what you're trying to accomplish, but if you enter 2326 into the document and hit Alt-x it converts it to the appropriate Unicode character

So in the cursor is after the 2326 it will display the "X in a pointed box" symbol
Capture.JPG
Try ChrW(2326) to insert using VBA

The VBA equivalent of Alt-X is

Sub Macro2()
    Selection.TypeText Text:="2326"
    Selection.ToggleCharacterCode
    Selection.ToggleCharacterCode
End Sub

[dj44]

Hi Paul,


I was able to make a nice input box with your help.


This code only does numbers though so 2334, 2326 etc


When I try alpha numbers
232B


It throws a type mismatch


But nearly there

Sub UnicodeToWordDisplaySymbol()


    Dim oUnicodeNumber As String


    
    '-- Placehholder INPUT BOX
    oUnicodeNumber = InputBox("Enter the 4 Digit Unicode Number only : ")
    
    If Len(oUnicodeNumber) = 0 Then       ' If Nothing enetered Stop
    
    Exit Sub
    
    End If


    Selection.TypeText Text:=ChrW(oUnicodeNumber)
    Selection.ToggleCharacterCode
    Selection.ToggleCharacterCode
End Sub

[gmaxey]

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
  Selection.Range.InsertSymbol 2326, , True
  Selection.Range.InsertSymbol 2327, , True
  Selection.Range.InsertSymbol 2328, , True
  Selection.Range.InsertSymbol 2329, , True
lbl_Exit:
  Exit Sub
End Sub

[Paul_Hossler]

Hi Paul,


I was able to make a nice input box with your help.


This code only does numbers though so 2334, 2326 etc


When I try alpha numbers 232B


It throws a type mismatch


But nearly there

Doing it that way, you have to make the string 'hex' into a number

Sub UnicodeToWordDisplaySymbol()
    Dim oUnicodeNumber As String
    Dim oUnicodeLong As Long
    
     
     '-- Placehholder INPUT BOX
    oUnicodeNumber = InputBox("Enter the 4 Digit Unicode Number only : ")
     
    If Len(oUnicodeNumber) = 0 Then Exit Sub
     
    oUnicodeLong = CLng("&h" & oUnicodeNumber)
     
    Selection.TypeText Text:=ChrW(oUnicodeLong)

    Selection.Range.InsertSymbol oUnicodeLong, , True    ' Greg's code


End Sub

[dj44]

Hi Greg,

thanks for the tip.

I still cant get over the last hurdle

the alpha numeric code

232B etc


Selection.Range.InsertSymbol chrW(232A), True

I've looked on line i'm not sure if i need to convert this to ASCII oh another job now

[dj44]

Thanks Paul & Greg,

I can put the alpha numbers in the box and the friendly symbol is inserted now

That is a lot easier than me trying to search the symbol box which you cant you have to guess what the symbol is and

There is 4 options in word
ASCII
Hex
Character code
Decimal

its all too confusing for me -i dont know what it is, and i hate searching online for the symbol

but this input conversion box will help me

thank you

[Paul_Hossler]

Thanks Paul & Greg,

I can put the alpha numbers in the box and the friendly symbol is inserted now

That is a lot easier than me trying to search the symbol box which you cant you have to guess what the symbol is and

There is 4 options in word
ASCII
Hex
Character code
Decimal

its all too confusing for me -i dont know what it is, and i hate searching online for the symbol

but this input conversion box will help me

thank you

Personally, I've always found the Alt-X way of entering symbols into a document an easy way to do it if I know the Unicode

[dj44]

Paul,

You are correct

ALT + X works

Why didn't i know this before


oh well

I will write this shortcut down