Word VBA宏设置XE索引条目字体格式不生效问题排查

你遇到的格式修改失效问题由两个核心原因导致：

• 你通过Shift+Alt+X插入的XE索引项属于Word原生域结构，外层包裹的大括号是Word自动生成的域专用特殊字符（ASCII编码19/21），和键盘手动输入的普通半角大括号（ASCII编码123/125）不是同一种字符，你原代码里用MoveStartUntil匹配普通{字符，选中的范围只是视觉上覆盖了XE域，没有真正锚定到域的内部文本范围。
• Word对原生域结构有默认保护，直接给跨域边界的普通Range对象设置字体属性时，修改不会应用到域内部的Code文本区域，只会作用于范围内的普通正文内容。

不要靠字符匹配定位XE项，直接通过Word的Field对象定位域的内部代码区域，再应用格式即可，修正后的宏同时兼容普通大括号包裹的文本场景：

Private Sub NormalizeEntry()
    Dim rng As Range
    Dim targetField As Field
    Set rng = Selection.Range
    
    ' 先判断光标紧邻位置是否为原生域
    rng.MoveStart Unit:=wdCharacter, Count:=-1
    If rng.Fields.Count > 0 Then
        Set targetField = rng.Fields(1)
        ' 校验是否为XE索引域
        If VBA.Left$(targetField.Code.Text, 3) = " XE" Then
            ' 选中域完整范围（包含前后域专用大括号）
            Set rng = targetField.Code
            rng.MoveStart Unit:=wdCharacter, Count:=-1
            rng.MoveEnd Unit:=wdCharacter, Count:=1
        End If
    Else
        ' 非域场景走原普通文本匹配逻辑
        rng.MoveStartUntil Cset:="{", Count:=-100
        rng.MoveStart Unit:=wdCharacter, Count:=-1
    End If
    
    ' 应用统一格式
    With rng.Font
        .Size = 8
        .ColorIndex = wdBlack
        .Bold = False
        .Italic = False
    End With
    
    ' 格式应用完成后将光标放回条目末尾，不保留选中状态
    rng.Collapse Direction:=wdCollapseEnd
    rng.Select
End Sub

使用说明 #

• 宏运行后无需手动调整选中范围，会自动把光标放回原索引项末尾
• 如果修改后格式显示未即时刷新，按F9刷新当前域即可看到效果
• 该逻辑不会误修改文档中其他类型的域（比如目录域、页码域等）

内容的提问来源于stack exchange，提问作者Holger Nielsen