Разные шрифты Mash-Up для текста и чисел

Question

Я хочу использовать шрифт, например Candara для текста, и в то же время я хочу использовать какой-то другой шрифт для чисел в тексте, потому что стиль чисел в шрифте Candara как-то мешает (по крайней мере, для меня). Я не хочу менять шрифты снова и снова при написании текста и цифр.

Можно ли использовать шрифт Candara для текста и какой-либо другой шрифт для чисел одновременно (без смены шрифта снова и снова).

Answer 1

Это можно сделать с помощью VBa. В зависимости от размера вашего файла (сколько у вас слов) он может быть медленным.

Также предполагается, что вы используете только 2 шрифта. Если вы используете другие шрифты, они будут перезаписаны!

Это VBa, так что запомните, сначала сохраните его, чтобы создать резервную копию (отмены нет)

Sub updateFont()

Dim doc As Document
Set doc = ActiveDocument
Dim i As Integer    
For i = 1 To doc.Range.Characters.Count

     If IsNumeric(doc.Range.Characters(i)) Then
        doc.Range.Characters(i).Font.Name = "Algerian"
        Else
        doc.Range.Characters(i).Font.Name = "Verdana"
     End If
Next i

End Sub

Снимок экрана до (с использованием курсивного шрифта)

и после

Как добавить VBA в MS Office?