ChrW codes

Question

I am looking for a list of the ChrW codes. ALL THE CODES! Not the ones someone thinks I need, not the ones someone feels like telling me,  every single ChrW code and what it prints. Is this available?

Answer 1

I had a similar issue trying to get the numbers for bullet points.

Comment #5 in another thread (https://www.office-forums.com/threads/finding-chrw-codes.1872731/) has a helpful block of code which, if run in a VBA Macro in Excel, will print out a list of the ChrW codes along with their respective characters.

https://www.office-forums.com/threads/finding-chrw-codes.1872731/

Code:

Sub charactercodes()

Application.ScreenUpdating = False

Range("B1") = "ChrW CODE"

Range("C1") = "OUTPUT"

Rows("1:1").ShrinkToFit = True

A = 1 'CHARACTER CODE VALUE

CROW = 2 'CURRENT ROW #

CCOL = 2 'CURRENT COLUMN NUMBER

Cells.Select

With Selection

.NumberFormat = "@"

.HorizontalAlignment = xlCenter

.VerticalAlignment = xlCenter

.Font.Name = "ARIAL"

.Font.Size = 14

.RowHeight = 20

End With

Columns(1).ColumnWidth = 1

Columns(1).Interior.ColorIndex = 14

Columns(2).ColumnWidth = 10

Columns(3).ColumnWidth = 6

Do

Cells(CROW, CCOL) = A

Cells(CROW, (CCOL + 1)) = ChrW(A)

A = A + 1

CROW = CROW + 1

If CROW = 102 Then

CROW = 2

CCOL = CCOL + 3

Columns(CCOL - 1).ColumnWidth = 1

Columns(CCOL - 1).Interior.ColorIndex = 14

Columns(CCOL).ColumnWidth = 10

Columns(CCOL + 1).ColumnWidth = 6

End If

If A = 65001 Then

Exit Do

End If

Loop

Application.ScreenUpdating = True

End Sub

Answer 2

I know this will not be what you need, but if you want something from the bowels of Microsoft, try

https://msdn.microsoft.com/en-us/library/613dxh46%28v=vs.90%29.aspx?f=255&MSPPError=-2147217396

where it tells you that the ChrW function takes arguments from -32768 through 65535 for DBCS (Double Byte) characters.

Answer 3

You can get complete lists of Unicode characters and values at http://www.ssec.wisc.edu/~tomw/java/unicode.html

For conversion information, see http://dailydoseofexcel.com/archives/2010/11/19/unicode-and-vbas-chrw-and-ascw-functions/ or, more simply, http://forums.devshed.com/visual-basic-programming-52/insert-unicode-character-cell-using-vba-359710.html

Answer 4

1. Go to Insert|Symbol>More Symbols.
2. Set the font to 'Times New Roman'.
3. Set the 'character code' 'from' option to 'Unicode (hex)'.
4. Click anywhere in the symbols listing and press Ctrl-Home.

Now you can start scrolling through the list to see what all the Unicode character values are for 'Times New Roman'. Do the same for any other font you're interested in - some fonts have different character sets (often fewer than 'Times New Roman', whilst others (e.g. Segoe UI Emoji) use entirely different characters for some Unicode values.

Thank you. Now can anyone tell me if there's a LIST, one that I can copy down and consult when I wish? Or is that information classified?

Oh, btw, I didn't ask for Unicode, I asked for Microsoft's ChrW codes, the ones you can insert in a macro and have it appear in a word document. The character codes from the symbol list don't correspond.

Answer 5

1. Go to Insert|Symbol>More Symbols.
2. Set the font to 'Times New Roman'.
3. Set the 'character code' 'from' option to 'Unicode (hex)'.
4. Click anywhere in the symbols listing and press Ctrl-Home.

Now you can start scrolling through the list to see what all the Unicode character values are for 'Times New Roman'. Do the same for any other font you're interested in - some fonts have different character sets (often fewer than 'Times New Roman', whilst others (e.g. Segoe UI Emoji) use entirely different characters for some Unicode values.