|
|
#2
08-28-2024, 05:36 AM
|
|||
|
|||
That is ChrW(9608)
Code:
Sub CheckOfCharacters()
Dim i As Integer, str As String
str = ActiveCell.Value
Debug.Print ActiveCell.Font.Name
For i = 1 To Len(str)
Debug.Print Mid(str, i, 1) & " = " & Asc(Mid(str, i, 1)) & vbLf & _
Mid(str, i, 1) & " = " & AscW(Mid(str, i, 1))
Next
End Sub
|
|
|
Similar Threads
|
||||
| Thread | Thread Starter | Forum | Replies | Last Post |
 Open (import) ascii text files
|
smithurmann | Word | 3 | 10-07-2021 11:02 AM |
|
ASCII or Unicode Latin-based characters without a keypad
|
jessesgirll | Word | 3 | 05-28-2016 03:46 AM |
|
Naming files in folder, DOS vs Windows Explorer ASCII sequence
|
equalizer88 | Word VBA | 2 | 08-12-2015 03:29 PM |
| Strange Characters appear when selecting SHOW ALL NON PRINTING CHARACTERS | ann Amber | Word | 1 | 08-01-2015 08:06 PM |
|
Ascii charcter
|
Jimbir | Word | 3 | 04-12-2015 07:50 PM |
Windows 10 
Office 2010
Threaded Mode