混合使用不同字体的文本和数字

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

之前的截图（使用斜体字体）

之后

如何在 MS Office 中添加 VBA？