使用Unicode將文本轉換爲HTML實體

Question

在VBA中，如何將包含unicode的文本轉換爲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