유니 코드로 텍스트를 HTML 엔터티로 변환

Question

VBA에서 유니 코드를 포함하는 텍스트를 HTML 엔터티로 어떻게 변환합니까?

예 : Test chars: èéâ은 Test chars: èéâ

Answer 1

Function Unicode2Html(strText As String) As String 

Dim i As Integer 
Dim strOut As String 
Dim char As String 
Dim intCharCode As Integer 

For i = 1 To Len(strText) 
    char = Mid(strText, i, 1) 
    intCharCode = AscW(char) 
    If intCharCode > 127 Then 
     strOut = strOut & "&#" & intCharCode & ";" 
    Else 
     strOut = strOut & char 
    End If 
Next 

Unicode2Html = strOut 

End Function