如何批量设置Word中英文和数字为新罗马字体？

Question

在使用Word编辑文档时，如何批量将全文的中英文及数字统一设置为“新罗马字体”（Times New Roman）是常见需求。许多用户手动逐段修改字体，效率低下且易遗漏。问题在于：中文文本通常默认使用宋体或黑体，而英文字体可独立设置，导致中英文混排时字体不统一。尽管通过“替换字体”功能可部分解决，但该方法对嵌套样式或文本框中的内容支持有限。此外，直接修改正文样式虽能影响后续输入，却无法自动更新已存在的格式。因此，如何高效、彻底地批量设置中英文和数字为Times New Roman字体，尤其在长文档或多节文档中，成为用户普遍面临的操作难题。

Answer 1

1. 问题背景与核心挑战

在使用Word编辑文档时，如何批量将全文的中英文及数字统一设置为“新罗马字体”（Times New Roman）是常见需求。许多用户手动逐段修改字体，效率低下且易遗漏。问题在于：中文文本通常默认使用宋体或黑体，而英文字体可独立设置，导致中英文混排时字体不统一。

尽管通过“替换字体”功能可部分解决，但该方法对嵌套样式或文本框中的内容支持有限。此外，直接修改正文样式虽能影响后续输入，却无法自动更新已存在的格式。因此，如何高效、彻底地批量设置中英文和数字为Times New Roman字体，尤其在长文档或多节文档中，成为用户普遍面临的操作难题。

2. 常见解决方案及其局限性分析

• 手动选择并更改字体：适用于短文档，但在上百页的文档中极不现实。
• 使用“替换字体”功能（Ctrl+Shift+F）：路径为“开始” → “替换” → “更多” → “格式” → “字体”，可替换特定字体为Times New Roman，但无法识别混合格式或非正文区域（如文本框、表格、页眉页脚）。
• 修改“正文”样式：可统一后续输入格式，但不会自动应用到已有文本，除非文本明确继承该样式。

上述方法均存在覆盖不全、自动化程度低的问题，难以满足专业文档处理的高标准要求。

3. 深度技术实现路径

为实现真正意义上的“全局统一字体”，需结合样式管理、VBA宏编程与对象遍历机制。以下是系统化解决方案：

方案	适用范围	自动化程度	是否覆盖嵌套对象
替换字体功能	主文本流	中	否
修改正文样式 + 样式重新应用	基于样式的文本	高	部分
VBA宏遍历所有文本范围	全文本（含对象）	极高	是

4. 推荐终极解决方案：VBA宏脚本批量处理

以下VBA代码可遍历文档中所有文本容器，包括正文、文本框、表格、页眉页脚、形状等，并强制设置中英文及数字为Times New Roman：

Sub SetGlobalFontToTimesNewRoman()
    Dim sec As Section
    Dim hdr As HeaderFooter
    Dim shp As Shape
    Dim tbl As Table
    Dim rng As Range

    ' 设置正文字体
    For Each rng In ActiveDocument.StoryRanges
        With rng.Font
            .Name = "Times New Roman"
            .NameFarEast = "Times New Roman"
        End With
        
        ' 遍历表格
        For Each tbl In rng.Tables
            With tbl.Range.Font
                .Name = "Times New Roman"
                .NameFarEast = "Times New Roman"
            End With
        Next tbl
        
        ' 遍历形状（含文本框）
        For Each shp In rng.ShapeRange
            If shp.HasTextFrame Then
                With shp.TextFrame.TextRange.Font
                    .Name = "Times New Roman"
                    .NameFarEast = "Times New Roman"
                End With
            End If
        Next shp
    Next rng

    ' 遍历页眉页脚
    For Each sec In ActiveDocument.Sections
        For Each hdr In sec.Headers
            If hdr.Exists Then
                With hdr.Range.Font
                    .Name = "Times New Roman"
                    .NameFarEast = "Times New Roman"
                End With
            End If
        Next hdr
        For Each hdr In sec.Footers
            If hdr.Exists Then
                With hdr.Range.Font
                    .Name = "Times New Roman"
                    .NameFarEast = "Times New Roman"
                End With
            End If
        Next hdr
    Next sec

    MsgBox "全局字体已统一为 Times New Roman！", vbInformation
End Sub

5. 执行流程与注意事项

1. 按 <kbd>Alt + F11</kbd> 打开VBA编辑器。
2. 插入新模块，粘贴上述代码。
3. 运行宏前建议备份文档。
4. 确保文档未受保护，否则宏无法修改部分内容。
5. 若文档包含域代码（如TOC），建议更新后重新刷新域。
6. 测试宏在小样本文档上验证效果。

6. 流程图：全局字体统一处理逻辑

graph TD
    A[启动VBA宏] --> B{遍历StoryRanges}
    B --> C[设置主文本字体]
    C --> D[遍历表格]
    D --> E[设置表格内字体]
    C --> F[遍历形状/文本框]
    F --> G[设置文本框字体]
    B --> H[遍历各节页眉页脚]
    H --> I[设置页眉页脚字体]
    I --> J[完成所有节点处理]
    J --> K[提示执行成功]