Из AprilArmenian в Sylfaen

[Asvatur]

Привет, всем!
Вот такая проблема, надо перекодировать текст из старой кодировки в Юникод, т.е. стоял шрифт AprilArmenian, а надо Sylfaen.
Чем это можно безболезненно и быстро сделать?
Пробовал разные программы DOS>Unicod, результат нулевой.
Помогите пожалуйста. Или все в ручную придется делать...

[hex]

попробуй KDWin-всик конверетером может получится

[[ Xelgen ]]

KDWin'овский конвертер
На armunicode.org есть конвертеры/макросы для МС офиса.
на osi.am был конвертер.

[Gor Vardanyan]

opyat' je KDWin-ovski converter, no posle convertacii obezatelno nado proverit' text, inogda vmesto symbolov "գ" stavlyaet "." tochku... etc

[Avetis Avagyan]

Also try searching in Google for babelpad

[Тень Стервы...]

Тут три разных конвертора, try it...

[Professor]

Ссылки, конечно же, вещь хорошая, но...

Sub arial_amu()
'
' amu_arial Macro
' Macro recorded 22.04.01 by Tigran Petrosyan
'
st = Selection.Text
rt = ""
sl = Len(st)
'MsgBox (sl)
For i = 1 To sl
ch = Mid(st, i, 1)
num = AscW(ch)
'MsgBox (num)
If (num > 177 And num < 254) Then GoTo uc Else GoTo lc
uc:
delta = Fix(num / 2) - num / 2
'MsgBox (delta)
If (delta = 0) Then num_1 = 1329 + (num - 178) / 2 Else num_1 = 1377 + (num - 179) / 2
GoTo rr
lc: If num = 168 Then num_1 = 1415: GoTo rr Else
If num = 167 Then num_1 = 171: GoTo rr Else
If num = 166 Then num_1 = 187: GoTo rr Else
If num = 170 Then num_1 = 1373: GoTo rr Else
If num = 177 Then num_1 = 1374: GoTo rr Else
If num = 176 Then num_1 = 1371: GoTo rr Else
If num = 175 Then num_1 = 1372: GoTo rr Else num_1 = num
rr: ac = ChrW(num_1)
'MsgBox (num_1)
rt = rt & ac
Next i
Selection.Delete
Selection.Font.Name = "Sylfaen"
Selection.TypeText Text:=rt
End Sub