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. 执行流程与注意事项
按 Alt + F11 打开VBA编辑器。插入新模块，粘贴上述代码。运行宏前建议备份文档。确保文档未受保护，否则宏无法修改部分内容。若文档包含域代码（如TOC），建议更新后重新刷新域。测试宏在小样本文档上验证效果。
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[提示执行成功]