字符串变量字符格式保留问题：XE字段上下标丢失致索引生成错误

听起来你碰到的是Word VBA里处理带格式文本到XE字段的典型坑——当你把选中的文本范围（Range）转成字符串变量时，Range.Text只会提取纯文本，自动丢掉上标、下标这些格式信息，结果存到XE字段里自然就不对了，索引生成肯定出问题。

问题根源拆解 #

你说的没错，核心问题就在把文本范围存入字符串这一步：Word的Range.Text属性本身就是无格式的纯文本，不管原Range里有什么字体格式（上标、下标、加粗、斜体），都会被剥离成普通文字。而XE字段如果要保留这些格式，不能只传纯文本，得保留原格式的结构。

解决方案：直接操作Range插入XE字段，跳过字符串中转 #

与其先把选中内容转成字符串再塞到XE字段里，不如直接把选中的Range内容带格式复制到XE字段的Text参数里。这里给你两种常用的实现方式：

方式1：通过XML提取带格式文本创建XE字段

Sub AddXEWithFormatting()
    Dim selRange As Range
    Set selRange = Selection.Range
    
    ' 确保有选中内容
    If selRange.Text <> "" Then
        Dim xeField As Field
        ' 在选中内容后插入XE字段，保留原格式
        Set xeField = ActiveDocument.Fields.Add( _
            Range:=selRange, _
            Type:=wdFieldIndexEntry, _
            Text:=Chr(34) & GetFormattedText(selRange) & Chr(34), _
            PreserveFormatting:=True)
    End If
End Sub

' 辅助函数：提取Range的带格式XML内容
Function GetFormattedText(rng As Range) As String
    Dim xmlStr As String
    xmlStr = rng.WordOpenXML
    
    ' 截取XML中包含格式标记的文本部分
    Dim startPos As Long, endPos As Long
    startPos = InStr(xmlStr, "<w:r>")
    endPos = InStr(xmlStr, "</w:body>")
    
    If startPos > 0 And endPos > startPos Then
        GetFormattedText = Mid(xmlStr, startPos, endPos - startPos)
    Else
        ' 解析失败时 fallback 到纯文本
        GetFormattedText = rng.Text
    End If
End Function

方式2：用剪贴板中转粘贴带格式内容

如果你觉得XML处理太繁琐，也可以借助剪贴板直接复制原格式：

Sub AddXEWithFormatting_Clipboard()
    Dim selRange As Range
    Set selRange = Selection.Range
    
    If selRange.Text <> "" Then
        ' 复制选中内容到剪贴板（保留格式）
        selRange.Copy
        ' 在选中位置插入XE字段的空框架
        selRange.Collapse wdCollapseEnd
        ActiveDocument.Fields.Add Range:=selRange, Type:=wdFieldIndexEntry, Text:=""""
        ' 定位到XE字段的文本区域，粘贴带格式内容
        selRange.MoveLeft Unit:=wdCharacter, Count:=1
        selRange.PasteAndFormat wdFormatOriginalFormatting
    End If
End Sub

关键注意点 #

• 绝对不要用Range.Text获取带格式内容，它天生只返回纯文本；
• XE字段本身支持带格式文本，只要传入的内容包含Word的内部格式标记；
• 务必将PreserveFormatting参数设为True，避免字段更新时格式丢失。

这样调整后，上标、下标这类格式就能完整保留在XE字段里，生成的索引也会和原文本格式一致。

内容的提问来源于stack exchange，提问作者Anthony Yannotta