无法通过域代码修改Ruby文本字体，寻求宏代码调整方案

你遇到的字体复原问题，本质是Word的EQ域默认会继承系统样式，直接修改域代码属于临时生效，保存后Word会自动重置拼音字体为默认的Times New Roman。要彻底解决，必须修改宏的核心逻辑，让它生成拼音时直接应用自定义配置，跳过默认样式。

1. 修改宏代码实现自定义格式 #

打开你使用的alltext.bas宏文件，定位到插入拼音EQ域的核心代码段，替换为以下带自定义配置的代码：

原核心代码（大致结构）： #

Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "EQ \* jc0 \* hps16 \o(\s\up 12(" & pinyin & ")," & char & ")", PreserveFormatting:=False

修改后的代码（自定义字体/字号/位置）： #

Dim pinyinField As Field
' 插入EQ域时指定字号和偏移量
Set pinyinField = Selection.Fields.Add(Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
    "EQ \* jc0 \* hps10 \o(\s\up 10(" & pinyin & ")," & char & ")", PreserveFormatting:=True)
' 单独设置拼音部分的字体，避免被默认样式覆盖
pinyinField.Result.Fields(1).Result.Font.Name = "DengXian"
pinyinField.Result.Fields(1).Result.Font.Size = 10

参数说明： #

• \hps10：控制拼音字号（示例为10号，可自行调整数值）
• \s\up 10：控制拼音相对于汉字的偏移量（示例为向上偏移10磅，数值越大拼音位置越高）
• PreserveFormatting:=True：强制Word保留自定义格式，防止自动重置
• 最后两行代码专门针对拼音文本设置字体，彻底规避默认字体覆盖问题

2. 适配批量循环逻辑 #

如果宏是逐字符处理文本的，确保在循环中对每个拼音域都执行上述字体设置逻辑，示例循环代码如下：

For Each char In Selection.Characters
    ' 判断是否为中文字符
    If AscW(char) > 255 Then
        ' 调用原宏的拼音获取函数
        pinyin = GetPinyin(char)
        ' 插入带自定义格式的拼音域
        Set pinyinField = char.Fields.Add(Range:=char.Range, Type:=wdFieldEmpty, Text:= _
            "EQ \* jc0 \* hps10 \o(\s\up 10(" & pinyin & ")," & char & ")", PreserveFormatting:=True)
        ' 设置拼音字体和字号
        pinyinField.Result.Fields(1).Result.Font.Name = "DengXian"
        pinyinField.Result.Fields(1).Result.Font.Size = 10
    End If
Next

3. 验证效果 #

修改完成后，运行宏为选中的文本添加拼音，保存文档后重新打开，拼音的字体、字号、位置都会完整保留，不会再变回默认的Times New Roman。这种方式可以一次性处理万字文档，完全替代手动操作拼音指南的低效流程。

内容的提问来源于stack exchange，提问作者Weiyi Chen