如何在VBA生成的PPT文本中指定特定文本为下标/上标而非按字符位置？

问题背景 #

我正在开发一个VBA宏，基于Excel单元格值生成PPT演示文稿。宏调用自定义PPT模板，将指定单元格值填充到模板占位符中。

需要生成的目标文本格式为：

Flow_coolant = (导入单元格值) dPCoolant₂ + (导入单元格值) dPCoolant + (导入单元格值)
其中"Coolant"为下标，"2"为上标表示幂次。

现有代码通过固定字符位置设置下标/上标，但当导入的单元格值为负数或位数变化时，字符串长度改变，导致格式应用到错误字符上：

Set PPSlide9 = myPresentation.Slides(9)
With PPSlide9.Shapes("Text Placeholder 1").TextFrame
    With .TextRange.Lines(4)
            .Text = "FlowCoolant = " & Range("DT_Motor_a") & " dPCoolant2 + " & Range("DT_Motor_b") & " dPCoolant + " & Range("DT_Motor_c") & " [L/min]"
            .Characters(5, 7).Font.Subscript = msoTrue
            .Characters(25, 7).Font.Subscript = msoTrue
            .Characters(32, 1).Font.Superscript = msoTrue
            .Characters(46, 7).Font.Subscript = msoTrue
    End With
End With

需求：能否直接指定文本"Coolant"为下标，而非依赖固定字符位置？

解决方案 #

可以通过动态查找文本范围的方式定位目标内容，完全摆脱固定字符位置的限制。核心是利用TextRange.Find方法精准匹配指定文本，再对匹配到的范围设置格式。

修改后的代码如下：

Set PPSlide9 = myPresentation.Slides(9)
With PPSlide9.Shapes("Text Placeholder 1").TextFrame.TextRange.Lines(4)
    ' 先生成完整文本内容
    .Text = "FlowCoolant = " & Range("DT_Motor_a") & " dPCoolant2 + " & Range("DT_Motor_b") & " dPCoolant + " & Range("DT_Motor_c") & " [L/min]"
    
    Dim foundRange As TextRange
    Dim searchPos As Integer
    
    ' 批量设置所有"Coolant"为下标
    searchPos = 1
    Do
        Set foundRange = .Find(FindWhat:="Coolant", Start:=searchPos, Forward:=True)
        If Not foundRange Is Nothing Then
            foundRange.Font.Subscript = msoTrue
            searchPos = foundRange.Start + foundRange.Length ' 更新查找起始位置，避免重复匹配
        Else
            Exit Do
        End If
    Loop
    
    ' 设置紧跟"Coolant"后的"2"为上标
    searchPos = 1
    Do
        Set foundRange = .Find(FindWhat:="Coolant2", Start:=searchPos, Forward:=True)
        If Not foundRange Is Nothing Then
            ' 提取"Coolant2"中的最后一个字符（即幂次2）设置上标
            foundRange.Characters(foundRange.Length, 1).Font.Superscript = msoTrue
            searchPos = foundRange.Start + foundRange.Length
        Else
            Exit Do
        End If
    Loop
End With

关键说明 #

1. 先生成完整文本再处理格式，避免单元格值长度变化干扰定位
2. 循环查找所有"Coolant"实例，确保所有出现的"Coolant"都被设为下标
3. 通过查找"Coolant2"组合，精准定位需要设为上标的幂次"2"，不会误匹配其他位置的"2"
4. 每次查找后更新起始位置，防止重复处理同一文本片段

无论单元格值是负数、多位数还是其他情况，都能精准对目标文本应用格式。

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