ppt中怎么用VBA批量将m2，m3中的2，3替换成上角标的2，3

znppnz

如题，ppt中怎么用VBA批量将所有文本框中的m2，m3中的2，3替换成上角标的2，3？

试着用Ai写，用不了。在word中ai写的可以用

lss001

Sub pptsupptsubpt() 'Superscript/Subscript
    Dim sld As Slide, shp As Shape, pCount&
   
    With Application.ActivePresentation
         For Each sld In .Slides
             For Each shp In sld.Shapes
             If shp.Type = msoTextBox Then
                With shp.TextFrame.TextRange
                    pCount = .Characters.Count
                    For i = 1 To pCount
                        If .Characters(i, 1) = "m" Then
                        If .Characters(i + 1, 1) = "2" Or _
                           .Characters(i + 1, 1) = "3" Then
                           .Characters(i + 1, 1).Font.Superscript = msoTrue
                           '.Characters(i + 1, 1).Font.Color.RGB = RGB(0, 0, 255)
                        End If
                        End If
                    Next
                End With
             End If
             Next
         Next
    End With
End Sub

znppnz

lss001 发表于 2024-10-8 07:35
Sub pptsupptsubpt() 'Superscript/Subscript
    Dim sld As Slide, shp As Shape, pCount&
   

感谢大神，但是我试了，不报错，但是没有效果。我是OFFICE2021的版本。不知是不是我的版本问题。VBA我基本是只会照着来改点简单的。没系统的学。

znppnz

lss001 发表于 2024-10-8 07:35
Sub pptsupptsubpt() 'Superscript/Subscript
    Dim sld As Slide, shp As Shape, pCount&
   

不好意思，是我的要求没说清楚。插入文本框再测试正确的。我把PPT中这些都当成文本框了，注释掉if就可以了

lss001

znppnz 发表于 2024-10-8 09:04
不好意思，是我的要求没说清楚。插入文本框再测试正确的。我把PPT中这些都当成文本框了

您提供的附件不是文本框

znppnz

lss001 发表于 2024-10-8 07:35
Sub pptsupptsubpt() 'Superscript/Subscript
    Dim sld As Slide, shp As Shape, pCount&
   

感觉化学H2O,H2SO4等等也可以这样来替换，但是还是比较复杂，ai写了一个用数组替换的，但是用不了。好象只能用于普通的文字，上下标这种特殊的不行。