Кто-то знает где(в каком файле) расположены данные о шрифтах, что бы его заменить.
Весь текст(почти) тут. Его легко перевести, закинув в .doc(документ WORD). И отправить в какой хотите переводчик. Но проблема- текст вообще не отображается, да же крязабяки. А значит проблема не в кодировке, а в шрифтах именно.
Можно по факту весь текст перевести из кириллицы в латиницу. Это не так сложно сделать.
Через макрос в ворд.
Sub changeLatToRus()
'Замена во всем документе латинских букв на киррилические
Dim i As Integer
Dim sLat As Variant
Dim sRus As Variant
Dim rDoc As Range
Set rDoc = ActiveDocument.Range
'список латинских букв
sLat = Array("e", "y", "u", "o", "p", "a", "k", "x", "c", _
"E", "T", "O", "P", "A", "H", "K", "X", "C", "B", "M")
sRus = Array("е", "у", "и", "о", "р", "а", "к", "х", "с", _
"Е", "Т", "О", "Р", "А", "Н", "К", "Х", "С", "В", "М")
Application.ScreenUpdating = False ' Запрещаем обновление экрана во время работы макроса
With rDoc.Find
'заменяем все латинские символы на соответствующие кириллические
.ClearFormatting
.Replacement.ClearFormatting
.Forward = True
.Wrap = wdFindStop
.MatchWildcards = False
.Format = True
.MatchCase = True
For i = LBound(sLat) To UBound(sRus)
.Text = sLat(i)
.Replacement.Text = sRus(i)
.Execute Replace:=wdReplaceAll
Next i
End With
Application.ScreenUpdating = True ' Обновляем экран
End Sub
http://wordexpert.ru/page/psevdokirillica-makros-zameny-...icy-na-kirillicu
Нашел тут.
sLat = Что мы меняем. sRus = на что меняем.
sLat = Array("ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "б", "ю", _
"Ц", "У", "К", "Е", "Н", "Г", "Ш", "Щ", "З", "Х", "Ф", "В", "А", "П", "Р", "О", "Л", "Д", "Ж", "Э", "Я", "Ч", "С", "М", "И", "Т", "Б", "Ю")
sRus = Array("Ce", "y", "k", "e", "n", "g", "sh", "shh", "z", "x", "f", "ui", "v", "a", "p", "r", "o", "l", "d", "Zh", "je", "j", "cH", "c", "m", "i", "t", "b", "yu", _
"CE", "Y", "K", "E", "N", "G", "SH", "SHH", "Z", "X", "F", "V", "A", "P", "R", "O", "L", "D", "ZH", "JE", "J", "CH", "C", "M", "I", "T", "B", "YU")
Й я в ручную заменил на И до исп. макроса. ь знак я после макроса в ручную на b заменил.
А дальше из док документа обратно в TEXT.ini закинуть. Выделить все->Копировать(в док документе)->Выделить все(в TEXT.ini)-> Вставить. Только копию оригинального TEXT.ini делайте сразу же, и в отдельную папку кидайте, можно прямо в \data\files\ создавать папку
Разумеется, лучше бы норм. отображение кириллицы. Но без изменения шрифта это невозможно. А где и как изменить=вопрос.
