可通过查找替换、样式修改或VBA宏批量修改Word中西文字体：①用Command+H按西文字体查找后替换；②修改“正文”等样式的西文字体设置；③录制宏自动遍历并替换西文字体。
如果您在Word文档中需要统一修改所有西文字体，但逐一手动调整效率低下，则可以通过查找替换功能实现批量更改。以下是完成此操作的具体步骤：
本文运行环境：MacBook Air，macOS Sequoia。
一、使用查找替换功能定位西文字体
Word的“查找和替换”对话框支持按字体格式进行高级搜索，可精准筛选出当前应用了特定西文字体的文本段落，为后续批量替换提供基础条件。
1、按下 Command + H 打开“查找和替换”窗口。
2、点击右下角的“更多 >>”按钮展开高级选项。
3、将光标置于“查找内容”框内，点击下方“格式”按钮，选择“字体”。在弹出窗口中，于“西文字体”下拉菜单中选择目标字体（例如“Times New Roman”），点击“确定”。
4、确保“替换为”框为空，点击“全部查找”，确认右侧列表中显示所有匹配项。
二、批量替换为指定西文字体
在完成西文字体定位后，可直接通过替换操作将已识别的所有文本统一更改为新设定的西文字体，无需更改中文字体或其他格式属性。
1、保持“查找内容”中已有字体设置不变，将光标移至“替换为”框。
2、点击“格式”→“字体”，在新窗口中于“西文字体”下拉菜单中选择所需字体（例如“Calibri”），其他选项保持默认，点击“确定”。
3、点击“全部替换”，Word将自动将所有匹配的西文字体文本更新为目标字体。
三、利用样式集统一控制西文字体
若文档中大量使用标题、正文等内置样式，可通过修改样式定义中的西文字体设置，实现整篇文档范围内的一致性批量更新，避免遗漏手动输入内容。
1、在“开始”选项卡中右键点击“正文”样式，选择“修改”。
2、点击左下角“格式”按钮，选择“字体”，在“西文字体”栏中设置所需字体（例如“Segoe UI”）。
3、勾选“基于该模板的新文档”，点击“确定”保存更改。
4、重复步骤1–3，依次修改“标题1”“标题2”等常用样式中的西文字体设置。
四、通过宏命令自动化西文字体替换
对于需频繁执行该任务的用户，可录制或编写VBA宏，一次性遍历全文档所有Range对象，仅对西文字符应用字体变更，跳过中文及数字等非西文内容。
1、按下 Option + F11 打开VBA编辑器。
2、在左侧项目资源管理器中双击“Normal”→“Modules”→“New Module”。
3、粘贴以下代码：
Sub ReplaceWesternFont()
Dim rng As Range
Set rng = ActiveDocument.Content
With rng.Find
.ClearFormatting
.Font.Name = "Times New Roman"
.Replacement.ClearFormatting
.Replacement.Font.Name = "Arial"
.Forward = True
.Wrap = wdFindContinue
.Execute Replace:=wdReplaceAll
End With
End Sub
4、关闭编辑器，返回Word，按 Option + F8 运行宏“ReplaceWesternFont”。
