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

Question

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

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

Answer 1

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

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

Answer 2

更快：

Sub Demo()
Application.ScreenUpdating = False
With ActiveDocument.Range
  With .Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Font.Name = "e2"
    .Replacement.Font.Name = "Microsoft Sans Serif"
    .Forward = True
    .Format = True
    .Wrap = wdFindContinue
    .Execute Replace:=wdReplaceAll
  End With
End With
Application.ScreenUpdating = True
End Sub

Answer 3

您还可以将其另存为 docx，在 zip 文件中打开它，然后在 document.xml 和 fontTable.xml 中进行搜索/替换。

Answer 4

使用 mswords 格式查找 &代替。您将节省时间&大文件不会成为问题。