如何使用 VBA 循环遍历 MS Word 中的每个字母？

我有大约 100 个 Word 文档，其中包括外国名字的音译。这些文档的作者使用了一种特殊的字体，称为e2它有大约十几个特殊音译字符（所有这些字符都以 Microsoft Sans Serif 字体提供）。

我想遍历文档中的每一个字母，并且每当.Font = "e2"我想循环遍历这十几个字母（很容易猜到它们是什么），并将它们替换为 Microsoft Sans Serif 等效字母。但我不知道如何循环遍历字母。这是否可行，就像循环遍历 Excel 电子表格中的单元格一样？

这是一种方法，但根据文档的大小，执行可能需要很长时间。

Sub ChangeFonts()
Dim doc As Document
Set doc = ActiveDocument

For i = 1 To doc.Range.Characters.Count
    If doc.Range.Characters(i).Font.Name = "e2" Then
        doc.Range.Characters(i).Font.Name = "Microsoft Sans Serif"
    End If
Next

End Sub