PPT批量下标

例如将CO2中的2下标

1. 打开VBA编辑器：
   • 按键盘上的“Alt + F11”打开Visual Basic for Applications（VBA）编辑器。
2. 创建新模块：
   • 在VBA编辑器中，选择“Insert”->“Module”创建一个新的模块。
3. 复制并粘贴代码：
   • 将以下代码复制并粘贴到新模块中：

Sub ReplaceCO2ToSubscript()  
    Dim sld As Slide  
    Dim shp As Shape  
    Dim txtRng As TextRange  
    Dim searchText As String  
    Dim foundStart As Long  
      
    ' 设置要查找的字符串  
    searchText = "CO2"  
      
    ' 遍历所有幻灯片  
    For Each sld In ActivePresentation.Slides  
        ' 遍历幻灯片中的所有形状  
        For Each shp In sld.Shapes  
            ' 检查形状是否有文本框和文本  
            If shp.HasTextFrame And shp.TextFrame.HasText Then  
                Set txtRng = shp.TextFrame.TextRange  
                  
                ' 查找包含搜索文本的起始位置  
                foundStart = InStr(txtRng.Text, searchText)  
                  
                ' 循环直到找不到更多的匹配项  
                Do While foundStart > 0  
                    ' 将"CO2"中的"2"设置为下标（即第三个字符）  
                    txtRng.Characters(foundStart + 2, 1).Font.Subscript = True ' +2因为"2"是"CO2"的第三个字符，VBA索引从1开始  
                      
                    ' 查找下一个匹配项的起始位置  
                    foundStart = InStr(foundStart + Len(searchText), txtRng.Text, searchText)  
                Loop  
            End If  
        Next shp  
    Next sld  
End Sub

注意：上述代码是一个简单示例，用于将幻灯片中所有出现的指定字符（如"2"）设置为下标。如果你需要替换特定字符串中的某个字符为下标（如"CO2"中的"2"），则需要修改代码逻辑，以检查并替换整个字符串中的特定字符。

• 运行宏：
  • 关闭VBA编辑器，回到PPT界面。
  • 按键盘上的“Alt + F8”调出宏窗口。
  • 选择刚刚创建的宏（如“Replace_To_Subscript”），然后点击“运行”。

同理，将C4F7N中的数字下标：

Sub ReplaceCO2ToSubscript()
    Dim sld As Slide
    Dim shp As Shape
    Dim txtRng As TextRange
    Dim searchText As String
    Dim foundStart As Long
      
    ' 设置要查找的字符串
    searchText = "C4F7N"
      
    ' 遍历所有幻灯片
    For Each sld In ActivePresentation.Slides
        ' 遍历幻灯片中的所有形状
        For Each shp In sld.Shapes
            ' 检查形状是否有文本框和文本
            If shp.HasTextFrame And shp.TextFrame.HasText Then
                Set txtRng = shp.TextFrame.TextRange
                  
                ' 查找包含搜索文本的起始位置
                foundStart = InStr(txtRng.Text, searchText)
                  
                ' 循环直到找不到更多的匹配项
                Do While foundStart > 0
                    ' 将"CO2"中的"2"设置为下标（即第三个字符）
                    txtRng.Characters(foundStart + 1, 1).Font.Subscript = True ' +1因为"2"是"C4F7N"的第2个字符，VBA索引从1开始
                    txtRng.Characters(foundStart + 3, 1).Font.Subscript = True ' +3因为"2"是"C4F7N"的第4个字符，VBA索引从1开始
                      
                    ' 查找下一个匹配项的起始位置
                    foundStart = InStr(foundStart + Len(searchText), txtRng.Text, searchText)
                Loop
            End If
        Next shp
    Next sld
End Sub