oHTML := ComObjCreate("HTMLFile")
p := oHTML.createElement("p")
p.innerText := "я"
msgbox % p.innerHTML

str = 
(
ωωωωω
Кириллица Kirillitsa 
"&<>
)
MsgBox, % ConvertToHtml(str)

ConvertToHtml(str)  {
   Loop, parse, str
   {
      ;if AnsiTestChar(A_LoopField)
      ;   htmlStr .= A_LoopField
      ;else  {
         Transform, out, HTML, % A_LoopField
         htmlStr .= out
      ;}
   }
   Return htmlStr
}

AnsiTestChar(char)  {
   VarSetCapacity(buff, 1, 0)
   StrPut(char, &buff, "cp0")
   Return StrGet(&buff, "cp0") == char
}

HTM = 
(
à 
á 
â 
ã 
ä 
å 
ïîäåëèëñÿ ïóáëèêàöèåé
)

MsgBox, % ComUnHTML( HTM )

ComUnHTML(html) {
	oHTML := ComObjCreate("HtmlFile")
	oHTML.write(html)
	return oHTML.documentElement.innerText
}

str =
(
#   ё`.....;
)

n = 1 ; задать порядковый номер читаемого символа буфера обмена
StringLen, i, str ; определить длину строки в буфере обмена -> %i%
Loop, %i% ; повторять процесс согласно количества символов в строке буфера обмена
{ 
   StringMid, char, str, %n%, 1 ; прочитать один символ из строки буфера обмена, начиная с первого -> %char%

   AnsiTestChar(char)
   if not (char == 1)
      Transform, UNICODE, HTML, %char%, 2 ; перекодировать полученный символ в код HTML

   Done = %Done%%UNICODE% ; добавить полученное в конец строки переменной -> %Done%
   n += 1 ; увеличить число на единицу, для чтения следующего символа буфера обмена
}
msgbox %Done%
n = 1 ; вернуть номер читаемого символа на единицу
Return

AnsiTestChar(char)  {
   VarSetCapacity(buff, 1, 0)
   StrPut(char, &buff, "cp0")
   Return StrGet(&buff, 1, "cp0") == char
}

MsgBox, % AnsiTestChar("ω") . "`n" . AnsiTestChar("ё")

AnsiTestChar(char)  {
   VarSetCapacity(buff, 1, 0)
   StrPut(char, &buff, "cp0")
   Return StrGet(&buff, 1, "cp0") == char
}