求助：PowerPoint中批量将普通文本®转为上标，现有VBA代码对表格无效

原VBA代码仅能处理普通文本框里的内容，无法覆盖表格内的单元格文本。以下是修正后的代码，会同时遍历幻灯片上的普通形状和表格，把所有出现的®设置为上标：

Sub SuperscriptRegisteredMark()
    Dim osld As Slide
    Dim oshp As Shape
    Dim oTbl As Table
    Dim oRow As Row
    Dim oCell As Cell
    Dim ipos As Integer
    
    ' 遍历所有幻灯片
    For Each osld In ActivePresentation.Slides
        ' 遍历幻灯片上的所有形状
        For Each oshp In osld.Shapes
            ' 处理普通文本框形状
            If oshp.HasTextFrame Then
                If oshp.TextFrame.HasText Then
                    ipos = InStr(1, oshp.TextFrame.TextRange, Chr(174))
                    Do While ipos > 0
                        oshp.TextFrame.TextRange.Characters(ipos).Font.Superscript = msoTrue
                        ipos = InStr(ipos + 1, oshp.TextFrame.TextRange, Chr(174))
                    Loop
                End If
            End If
            
            ' 处理表格形状
            If oshp.HasTable Then
                Set oTbl = oshp.Table
                ' 遍历表格的所有行
                For Each oRow In oTbl.Rows
                    ' 遍历行内的所有单元格
                    For Each oCell In oRow.Cells
                        If oCell.Shape.HasTextFrame Then
                            If oCell.Shape.TextFrame.HasText Then
                                ipos = InStr(1, oCell.Shape.TextFrame.TextRange, Chr(174))
                                Do While ipos > 0
                                    oCell.Shape.TextFrame.TextRange.Characters(ipos).Font.Superscript = msoTrue
                                    ipos = InStr(ipos + 1, oCell.Shape.TextFrame.TextRange, Chr(174))
                                Loop
                            End If
                        End If
                    Next oCell
                Next oRow
            End If
        Next oshp
    Next osld
End Sub

使用步骤： #

• 打开目标PowerPoint文档，按下Alt+F11打开VBA编辑器
• 点击菜单栏的「插入」→「模块」
• 将上述代码粘贴到模块窗口中
• 按下F5执行宏，或者返回PowerPoint界面，通过「开发工具」→「宏」选择SuperscriptRegisteredMark运行

这段代码会自动扫描所有幻灯片，把普通文本框和表格单元格里的注册商标符号®全部设置为上标格式。

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