'############################################################## ' Unicode 16進数 文字実体参照作成 3 (VBScript) '  TjSoft-49, Taiju, 2007.12.30 ' 【使い方】 '  「真魚」エディタから使う。 '  選択文字をユニコード文字実体参照(10進数) '  で置き換える。 '############################################################## str = Editor.GetSelText aryStr = Split(str,CHR(10)) For j = 0 To UBound(aryStr) For i = 1 To Len(aryStr(j)) sUnit = Mid(aryStr(j), i, 1) iUnicodeNum = AscW(sUnit) If iUnicodeNum < 0 Then iUnicodeNum = iUnicodeNum + 65536 End If sU10tag = "&#" & UCase(iUnicodeNum) & ";" sConStr = sConStr & sU10tag sUnit = "" sU16tag = "" Next sConStr = sConStr & vbCr Next str = Editor.SetSelText(sConStr) sConStr = ""