Word VBA表格线性化宏丢失上标格式问题求助

问题根源 #

你之前尝试用.FormattedText但没生效，大概率是因为直接拼接字符串输出——字符串无法保存格式信息，哪怕你提取了带格式的内容，一旦转成字符串，格式就会丢失。必须通过Range对象的.FormattedText属性直接传递格式，而非文本拼接。

核心修复方案 #

放弃字符串拼接输出，改用Range对象直接复制带格式的单元格内容到目标位置。以下是针对你的TblLinearizer_Two_Column_Header宏的调整方案：

原错误写法示例（假设你的宏存在类似逻辑）

' 错误：用Text提取+字符串拼接，丢失格式
Dim outputStr As String
For Each cell In tbl.Range.Cells
    outputStr = outputStr & cell.Range.Text & vbNewLine
Next
ActiveDocument.Content.InsertAfter outputStr

修改后的正确实现

Sub TblLinearizer_Two_Column_Header_Fixed()
    Dim tbl As Table
    Dim outputRange As Range
    Dim targetRow As row
    Dim col1Cell As Cell, col2Cell As Cell
    
    ' 定位目标表格（可根据实际需求调整表格选择逻辑）
    Set tbl = ActiveDocument.Tables(1)
    ' 定位到文档末尾作为输出起始点
    Set outputRange = ActiveDocument.Content
    outputRange.Collapse Direction:=wdCollapseEnd
    
    ' 遍历双列表头表格的行（若需跳过表头行，可添加判断）
    For Each targetRow In tbl.Rows
        ' 获取当前行的两列单元格
        Set col1Cell = targetRow.Cells(1)
        Set col2Cell = targetRow.Cells(2)
        
        ' 复制第一列带格式内容到输出位置
        outputRange.FormattedText = col1Cell.Range.FormattedText
        outputRange.Collapse Direction:=wdCollapseEnd
        ' 添加自定义分隔符（可根据需求修改）
        outputRange.InsertAfter ": "
        outputRange.Collapse Direction:=wdCollapseEnd
        
        ' 复制第二列带格式内容到输出位置
        outputRange.FormattedText = col2Cell.Range.FormattedText
        outputRange.Collapse Direction:=wdCollapseEnd
        ' 添加换行
        outputRange.InsertAfter vbCrLf
        outputRange.Collapse Direction:=wdCollapseEnd
    Next targetRow
End Sub

关键细节说明 #

1. 禁用字符串拼接：所有带格式内容必须通过Range.FormattedText直接传递，不能转为字符串。
2. 自动处理单元格特殊字符：Word单元格的Range.Text末尾自带隐藏的单元格结束符（Chr(13)+Chr(7)），使用.FormattedText赋值时会自动过滤，无需额外处理。
3. 灵活调整输出样式：若需要修改堆叠格式（比如分隔符、换行方式），直接调整InsertAfter的内容即可，不会影响格式保留。

验证步骤 #

运行修改后的宏后，检查输出内容中的上标（如®）是否保留原格式。若仍有问题，确认表格是否存在嵌套结构或单元格内有分节符等特殊内容，需针对性添加处理逻辑。

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