[eilukha]

Столкнулся со следующей проблемой:
Сохранил из Стройконсультанта в Word документ (СП 53-102-2004) для распечатки, обнаружил что некоторые символы в формулах (гамма, фи, лямбда и др.) заменены русскими буквами. Это происходит и в Word 2003, и в Word 2007. Посморел эти же формулы в Стройконсультанте - такая же фигня. Двойной клик по кривой формуле вызывает редактор формул, после закрытия которого все становится как надо, но тыкать по всем формулам - нереально. Так же формула исправляется если по ней кликнуть правой -> Объект формула -> Преобразовать, но так все формулы исправить тоже нереально.
Как можно исправить кривые формулы?

[shell2021]

У меня в 2003 все отображается нормально.

[Александр Бауск]

Элементарно, Ватсон.
Ctrl+A, выполнить макрос:

Код:

[Выделить все]

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 26.09.2009 Bausk
'
For Each InlineShape In Selection.InlineShapes
    InlineShape.OLEFormat.ConvertTo ClassType:="Equation.3", _
        DisplayAsIcon:=False
        Next
        
End Sub

[eilukha]

У меня в 2003 все отображается нормально.

- возможно, дело не в Word-е, а в каких-нибудь настройках или шрифтах...
Александр Бауск, благодарю, все получилось!!!
Когда на пути макроса картинки попадаются ошибку (см. вложения) дает, можно ли поправить этот макрос?

[Александр Бауск]

Включить инструкцию On Error Resume Next, например?

...
On Error Resume Next
For Each InlineShape In Selection.InlineShapes
...

[eilukha]

Сделал так:

Sub Макрос1()
'
' Макрос1 Макрос
' Макрос записан 26.09.2009 Bausk
'
On Error Resume Next
For Each InlineShape In Selection.InlineShapes
InlineShape.OLEFormat.ConvertTo ClassType:="Equation.3", _
DisplayAsIcon:=False
Next

End Sub

Вроде, все работает. Спасибо!

[Ernara]

У меня возникла аналогичная проблема с формулами, но приведенный макрос к сожалению не работает - вместо преобразования формулы просто исчезают. Подскажите, пожалуйста, в чем может быть проблема

[Солидворкер]

Ernara, образец файла не помешает

[Ernara]

Вот маленький фрагмент файла, часть формул отображаются нормально, часть - кракозябры. При прощелкивании вручную открывается маттайп, где все в порядке, но в документе формулы принимают нормальный вид только если произвести какие-либо изменения в формуле в режиме маттайпа. После выполнения макроса формулы загадочным образом вообще исчезают

[eilukha]

у меня все ОК видно

[SergAM243]

На отображение формул, особенно созданных в маттипе, очень сильно влияет используемая кодовая страница. Необходимо на компе изменить значения кодовых страниц 1250 и 1252 на 1251 для использования русской кодовой страницы. Попробуйте, может в этом собака порылась!

[Ernara]

Спасибо за советы. Проблема решилась переустановкой ворда и маттайпа. После этого макрос заработал.

SergAM243, подскажите, где это можно посмотреть?

[silalex]

Сообщение от eilukha On Error Resume Next For Each InlineShape In Selection.InlineShapes InlineShape.OLEFormat.ConvertTo ClassType:="Equation.3", _ DisplayAsIcon:=False Next

Странно, сколько не запускал, не даёт нужного результата. Т. е. формулы остаются такими (с кракозябрами), какими были. В чём же дело? Может, нужно как-то по-другому запускать?

[sergejj185]

Доброго времени суток. У меня такая фигня при просмотре формул в Word 2003 показывает какето символы. Если можно помогите.
Заранее благодарен.

[eilukha]

Сообщение от Солидворкер образец файла не помешает

___

[Иван83]

Помогите, скоро диплом сдавать а у меня формулы глючат почему не пойму.