кракозябры при изменении шрифта gost type на любой другой

Уважаемый Фарид!
К сожалению, использованные вами шрифты совершенно не соответствуют стандартным шрифтам Times New Romans и др.

Пока для преобразования мне представляются возможными два способа, оба плохие:
1) преобразовать файлы в PDF и распознать их (распознавание происходит не очень хорошо);

2) сформировать специальный макрос, преобразующий "символ в символ" (наподобие такого  - http://wordexpert.ru/forum/viewtopic.php?id=1278) (это трудоемко и не уверен, что таким образом удастся корректно преобразовать формулы).

Может быть, коллеги смогут что-то добавить или преобразовать ваш текст как-то иначе?

Уважаемый Александр Львович, огромное вам спасибо,очень и при очень благодарен Вам
Пожалуйста не закрывайте пока тему,возможно в будущем будут вопросы по макросам. Я не очень понял как их использовать
Этот макрос тоже да кидать по пути " C:/Program Files/Microsoft Office/OFFICE12/STARTUP/ "?
Макрос автоматически преобразует или нужно в ручную преобразовать в ПУ?

Постараюсь сегодня вечером проверить, будет ли 2010 корректно преобразовывать ваш шрифт? Очень сомневаюсь в этом.

Фарид пишет:

А вообще стоит ли перейти на 2010? много чего зафиксировано ошибок, недочетов от предыдущих версий? удобно ли?

На мой взгляд, 2010 чуть-чуть лучше, чем 2007. Но не очень существенно. Основные усовершенствования, как мне кажется, связаны с корпоративным использованием программы (в частности, совместно с сервером SharePoint).

А файл "2. Тех-технологический 43.doc" у меня преобразовался сам собой.

Фарид пишет:

Но вот к вам вопрос по коду:
как понял по вашим комментам в коде,что For i = 61632 To 61695 - это коды только шрифта GOST type A. А u1040-^u1103 - это стандартные все шрифты,включая times new romans?!
А поясните пожалуйста параметр(или переменная) b1 = i - 60592?! Что за параметр? откуда этот код? в коде немного ниже уже другие значения. А в остальном пока вопросов нет. Говорю же грамотно и висуал бейсик не так уж сложноват,если читать пару раз хелпа)

61632 - 60592 = 1040 и т.д.

Преобразовал с помощью следующего макроса:

Sub changeToRusGOSTA()
'
' Преобразование из шрифт GOST type A в стандартный шрифт Times New Roman
'
' Назначение всему тексту шрифта Times New Roman
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"

' Преобразование кириллицы
    For i = 61632 To 61695
        a1 = i
        a = Trim("^u") & Trim(Str(a1))
        ' Шрифт GOST type A - коды ^u61632-^61695)
        b1 = i - 60592
        ' Стандартный шрифт - коды ^u1040-^u1103
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = a
            .Replacement.Text = ChrW(b1)
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i

' Преобразование других символов (за исключением символа ^)
    For i = 61472 To 61533
        a1 = i
        a = Trim("^u") & Trim(Str(a1))
        ' Шрифт GOST type A - коды ^u61472-^u61533
        b1 = i - 61440
        ' Стандартный шрифт - коды ^u32-^u93
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = a
            .Replacement.Text = ChrW(b1)
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i

    For i = 61535 To 61627
        a1 = i
        a = Trim("^u") & Trim(Str(a1))
        ' Шрифт GOST type A - коды ^u61535-^u61627
        b1 = i - 61440
        ' Стандартный шрифт - коды ^u94-^u187
        Selection.Find.ClearFormatting
        Selection.Find.Replacement.ClearFormatting
        With Selection.Find
            .Text = a
            .Replacement.Text = ChrW(b1)
            .Forward = True
            .Wrap = wdFindContinue
            .MatchCase = True
        End With
        Selection.Find.Execute Replace:=wdReplaceAll
    Next i

' Назначение тексту параметра «Русский язык»
    Selection.WholeStory
    Selection.LanguageID = wdRussian
    Application.CheckLanguage = True

End Sub

Почему другие документы преобразуются без проблем,а только с некоторыми проблемы с юникодом?

К сожалению, ответить не могу. Какие-то процессы в Ворде происходят...