Как изменить шрифт cambria math на times new roman

Редактирование формул и стилей

В статье по созданию формул (См. Создание формул) мы рассмотрели 2 варианта создания формул: с помощью редактора и добавления через вкладку Уравнения на вкладке Вставка.
В этой небольшой статье мы рассмотрим, как изменять формулы и как настраивать их стили.

Первый вариант — Редактор формул

В статье по созданию формул мы набирали формулы двумя разными способами. В редакторе мы набирали следующую формулу (рисунок 1):

Рисунок 1

Чтобы изменить формулу, набранную в простом редакторе, нужно на нее щелкнуть дважды левой кнопкой мыши (рисунок 2):

Рисунок 2

Как набирать формулы, описано в статье Создание формул. Здесь же нам понадобятся Стиль и Размер. Собственно, изменение стиля и размера символов в этом редакторе не составляет труда.
Рассмотрим, как будет выглядеть окно форматирования стиля. Для этого на вкладке Стиль в открывшемся меню выберем пункт Определить (рисунок 3):

Рисунок 3

После этого появится окно редактора стиля (рисунок 4):

Рисунок 4

Итак, мы видим на рисунке выше редактор Стиля. Тут все довольно просто. Выбираем необходимый шрифт для нужного стиля (Текст, функция, переменная и т.д.), выбираем формат (начертание) символов, отметив нужное галочкой, или ничего не выбрав. Нажимаем ОК.
Для тренировки можно написать любую формулу и попробовать изменять шрифт и начертание на то, которое вас устроит.
Также поступим со вкладкой Размер. В открывшемся меню выберем Определить, после чего откроется окно редактора размера (рисунок 5):

Рисунок 5

Выбираем для каждого индекса и символа нужный размер, и нажимаем ОК.
Вот таким способом редактируются формулы в этом простом редакторе.

Второй вариант — Изменение формул, набранных через вкладку Уравнение

Чтобы вызвать редактор формул, нужно также левой кнопки мыши нажать на формулу. Для примера мы набирали следующую формулу (рисунок 6):

Рисунок 6

После вызова редактора формула будет выглядеть так (рисунок 7):

Рисунок 7

Теперь рассмотрим, как же изменить шрифт в этом типе формул. Если просто выделить уравнение, вызвать правой кнопкой контекстное меню и выбрать шрифт, либо зайти через вкладку Главная на ленте, выбрать шрифт и поменять, то шрифт не изменится и будет стандартный Cambria Math.
Чтобы иметь возможность изменить шрифт, нужно нажать на уравнение, после чего на ленте откроется вкладка Коструктор, и нажимаем на вкладку Обычный текст (рисунок 8):

Рисунок 8

После этого, выделив формулу, можно изменять ее шрифт и размер, как и для обычного текста.
Также в этом редакторе есть возможность сохранять нужные вам формулы, чтобы в дальнейшем заново их не набирать. Для этого нужно нажать на нужную формулу, и выбрать Сохранить как новое уравнение (рисунок 9):

Рисунок 9

После чего откроется окно, как на рисунке 10:

Рисунок 10

На указанном выше рисунке заполняем нужные нам поля, и нажимаем кнопку ОК. Формула в коллекции готова.
В данной статье мы рассмотрели, как форматировать формулы в текстовом редакторе Word в двух вариантах на тот случай, если кто-то пользуется версией 2003.
Для остальных версий мы рассмотрели возможность изменения шрифта, как для любого другого текста, а также способ сохранения формулы для добавления ее в коллекцию формул с возможностью дальнейшего использования.

Вы можете вставлять математические уравнения в MS Word. Существует специальный инструмент для формул, поддерживающий математические и статистические символы. Также есть инструмент, позволяющий вводить стандартные формулы, например формулу для вычисления площади круга. Он действительно очень хорошо оборудован и в Windows 10 поддерживает ввод уравнений. Вы можете просто написать уравнение рисовальным пером, и MS Word сможет его прочитать. Инструмент уравнения имеет ограничение; имеет только один персонаж. Если вы измените шрифт формулы в MS Word через вкладку «Главная» на ленте, он вернется к стандартному математическому шрифту.

На самом деле, вы можете изменить шрифт уравнения в MS Word, но это немного сложный процесс.

Сначала вам нужно ввести уравнение. На ленте выберите «Вставка»> «Уравнение.

Введите свое уравнение. Когда закончите, выберите его и на вкладке «Дизайн» нажмите кнопку «Обычный текст» в окне «Инструменты».

Затем перейдите на вкладку «Главная» и в раскрывающемся списке «Шрифт» выберите нужный шрифт. Меняется характер уравнения.

Ограничения

MS Word намеренно ограничивает символы, доступные для математических уравнений. Шрифты обычно предназначены для буквенно-цифровых символов и некоторых часто используемых символов выбора. Очень немногие шрифты содержат полный набор математических символов. Если вы решите изменить шрифт формулы в MS Word, вы рискуете, что некоторые символы будут недоступны в указанном шрифте.

Например, символ может не содержать статистических символов, таких как символ сигмы или символ нижнего корня, и в этом случае уравнение может не отображаться полностью. Шрифт формулы по умолчанию в MS Word, Cambria Math, поддерживает все символы, необходимые для вставки уравнения, поэтому большинство людей его используют. Это очень читаемый шрифт, и вы можете увеличить размер текста или сделать его жирным, если хотите, чтобы он был более читабельным.

Если вы решили использовать другой шрифт для формул в MS Word, поищите шрифт, предназначенный для математического ввода. Может быть не так много символов с полным математическим набором символов, но они точно есть. Загрузите и установите шрифты на свой компьютер, как и любой другой шрифт, и используйте описанный выше метод, чтобы применить его к своему уравнению. Редактор формул не запоминает символ, использованный в предыдущем уравнении. Вам придется изменить его для всех.

I want to set the font of all texts to Times New Roman, and I wrote these codes:

Selection.WholeStory
With Selection.Font
    .NameAscii = "Times New Roman"
    .NameOther = "Times New Roman"
    .Name = ""
End With

However, when I run those codes, the font of all equations, i.e. Omath objects becomes Times New Roman too, instead of Cambria Math.

I’ve tried to add these codes after that:

For Each Oma In NewDoc.OMaths
    With Oma.Range.Font
        .Italic = True
        .Name = "Cambria Math"
    End With
    DoEvents
Next

This does work, but it’s too slow since there’s a for-loop in the code.

However, when I just press Ctrl+A to select the whole story and set the font manually, Word will skip the equations automatically while in VBA it doesn’t.

Therefore I wonder is there a good way to set the font of texts but keep the font of equations? Very much thanks!

UPDATE:

I’ve tried to find and replace as @Timothy Rylatt suggested. Here’s my code:

Sub FindReplaceFont()
   With ActiveDocument.Content.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = ""
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .Font.Name = "Consolas"
      .Replacement.Font.Name = "Times New Roman"
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
   End With
End Sub

But I met a strange problem: after find and replace, texts between two inline equations will merge in one equation object. Here’re the pics:

Before replacing the document looks like this:

And after replacing the document looks like this:

I’ve met this problem before and I still have no idea why this could happen and how to deal with it. Any suggestions for me?

Thank you guys again.

UPDATE:

I’ve solved this problem following the suggestion from @macropod. I should set the font of the styles instead of setting them directly. A simple for-loop on the styles is OK!

I want to set the font of all texts to Times New Roman, and I wrote these codes:

Selection.WholeStory
With Selection.Font
    .NameAscii = "Times New Roman"
    .NameOther = "Times New Roman"
    .Name = ""
End With

However, when I run those codes, the font of all equations, i.e. Omath objects becomes Times New Roman too, instead of Cambria Math.

I’ve tried to add these codes after that:

For Each Oma In NewDoc.OMaths
    With Oma.Range.Font
        .Italic = True
        .Name = "Cambria Math"
    End With
    DoEvents
Next

This does work, but it’s too slow since there’s a for-loop in the code.

However, when I just press Ctrl+A to select the whole story and set the font manually, Word will skip the equations automatically while in VBA it doesn’t.

Therefore I wonder is there a good way to set the font of texts but keep the font of equations? Very much thanks!

UPDATE:

I’ve tried to find and replace as @Timothy Rylatt suggested. Here’s my code:

Sub FindReplaceFont()
   With ActiveDocument.Content.Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = ""
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = True
      .Font.Name = "Consolas"
      .Replacement.Font.Name = "Times New Roman"
      .MatchCase = False
      .MatchWholeWord = False
      .MatchWildcards = False
      .MatchSoundsLike = False
      .MatchAllWordForms = False
      .Execute Replace:=wdReplaceAll
   End With
End Sub

But I met a strange problem: after find and replace, texts between two inline equations will merge in one equation object. Here’re the pics:

Before replacing the document looks like this:

And after replacing the document looks like this:

I’ve met this problem before and I still have no idea why this could happen and how to deal with it. Any suggestions for me?

Thank you guys again.

UPDATE:

I’ve solved this problem following the suggestion from @macropod. I should set the font of the styles instead of setting them directly. A simple for-loop on the styles is OK!