由字碼插入自行造字區之造字（十進位轉十六進位） | by Oscar Sun on SnipSave | Web-based code snippet manager for developers

由字碼插入自行造字區之造字（十進位轉十六進位） vbscript

                  Sub 由字碼插入自行造字區之造字()
Dim i As Integer,rng as Range
Set rng=Selection.Range
For i = -8192 To -4633 '-7688
    Selection.TypeText Hex(i) '十進位轉十六位進位（16進位） https://docs.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/hex-function
    Selection.ToggleCharacterCode
    rng.SetRange Selection.Start - 1, Selection.End
    rng.Font.Name = "EUDC"
Next i
End Sub

Sub 由字碼插入自行造字區之造字()
Dim i As Integer,rng as Range
Set rng=Selection.Range
For i = -8192 To -4633 '-7688
    Selection.TypeText Hex(i) '十進位轉十六位進位（16進位） https://docs.microsoft.com/zh-tw/office/vba/language/reference/user-interface-help/hex-function
    Selection.ToggleCharacterCode
    rng.SetRange Selection.Start - 1, Selection.End
    rng.Font.Name = "EUDC"
Next i
End Sub

View Oscar's Profile