Microsoft Office Forums - View Single Post - [Solved] Identifying Concentric Square Loops Special Character for Find & Replace

Guessed · 07-08-2024, 03:43 PM

You could also use a macro to find out the ascii or asciiWide values to avoid having to use other websites to convert between hex and decimal

Code:

Sub WhatChar()
  Dim aChar As Range, sReport As String
  sReport = "Char" & vbTab & "Asc" & vbTab & "AscW" & vbCr
  For Each aChar In Selection.Range.Characters
    sReport = sReport & aChar & vbTab & Asc(aChar) & vbTab & AscW(aChar) & vbCr
  Next aChar
  MsgBox sReport, vbOKOnly, "Selected characters"
End Sub

Sub InsertUnicodeChar()
  Selection.Range.InsertAfter ChrW(8203)
End Sub