字碼表製作 十進位轉十六進位 

                  Sub s()
'CJK兼容      [F900-FAD9]        474字  豈更車賈滑串句龜龜
'CJK兼容?展  [2F800-2FA1D]      542字  ??????????????????
''
For i = &H2F00 To &H2FDF
    
'For i = &HF900 To &HFAFF
'    ss = Selection.Start
    Selection.TypeText Hex(i)
'    ee = Selection.Start
'    Selection.SetRange ss, ee
'    Selection.ToggleCharacterCode
    Selection.InsertParagraphAfter
    Selection.Collapse wdCollapseEnd
Next
End Sub
View Oscar's Profile