Крякозабры вместо кириллицы (в .rtf)

[gasyoun]

Господа,

Я за свою жизнь видел десятки разновидностей порчи кириллицы, но такого не ожидал. Я делал файл в 6м индизайне на винде, верстальщик вернул в 5.5 на маке. Из эго файла хотел получить .rtf, получил какашку.

akṣara („íåèçìåííûé“, òðàäèöèîííî ðàçâîðà÷èâàåòñÿ â na kṣarati iti akṣaram „àêøàðà — òî, ÷òî íå èç÷åçàåò“, îò ⎷kṣar „òå÷ü“ è — îòñþäà — „êàíóòü â âå÷íîñòü“; ⎷kṣar-a(c) ïî Àïòå) ñëîã, ôîíåìà. Ñîãëàñíî Ò. Å. Êàòåíèíîé, ïîä âëèÿíèåì ñîâðåìåííûõ ÿçûêîâ ñëîâî ïðèîáðåëî ôîðìó áêøàð, m. „Áóêâà“ àëôàâèòà, íàïð., a अ, i इ, h ह्, y य्.

Кто-то проходил? Безвозвратно испорчено?\

Спасибо

 

[_MBK_]

Не пойму что вы хотите - текст восстановить?

akṣara („неизменный“, традиционно разворачивается в na kṣarati iti akṣaram „акшара — то, что не изчезает“, от ⎷kṣar „течь“ и — отсюда — „кануть в вечность“; ⎷kṣar-a(c) по Апте) слог, фонема. Согласно Т. Е. Катениной, под влиянием современных языков слово приобрело форму бкшар, m. „Буква“ алфавита, напр., a अ, i इ, h ह्, y य्.

 

[gasyoun]

текст восстановить

Ну да, я не понял, что с ним.

 

[_MBK_]

Как что? Кодировка слетела разумеется

 

[gasyoun]

Кодировка слетела разумеется

Здорово, а как ее вернули назад? Я в ворде не знаю как буквам сказать - станьте нормальными.

 

[_MBK_]

Мудрый гугл знает все

 

[gasyoun]

Ну так я так стили потеряю, так не интересно

 

[George]

Из эго файла хотел получить .rtf, получил какашку.

Может в ворд попробовать? (docx)

 

[LeonidB]

Ну так я так стили потеряю, так не интересно

Если знакомы с макросами в ворде, то запустите:

Sub Uni_to_Asc()

' Преобразование русского текста, представленного в виде Unicode, в читабельный ASCII

Dim Asc_Char() As String
Dim AscW_Char() As String

ReDim Asc_Char(255)
ReDim AscW_Char(255)

For i = 128 To 255
Selection.HomeKey Unit:=wdStory
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
AscW_Char(i) = ChrW(i)
Asc_Char(i) = Chr(i)
    With Selection.Find
        .Text = AscW_Char(i)
        .Replacement.Text = Asc_Char(i)
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i

End Sub

 

[gasyoun]

docx

Мне такое не предлагает.

то запустите

Спасибо, знаком.