在Powerpoint中替换使用InputBox

Sub ReplaceText()
    Dim searchText As String
    Dim replaceText As String
    
    ' 弹出对话框，获取用户输入的搜索文本
    searchText = InputBox("请输入要搜索的文本：")
    
    ' 弹出对话框，获取用户输入的替换文本
    replaceText = InputBox("请输入要替换的文本：")
    
    ' 遍历每个幻灯片并替换文本
    Dim slide As Slide
    For Each slide In ActivePresentation.Slides
        ' 遍历每个形状并替换文本
        Dim shape As Shape
        For Each shape In slide.Shapes
            If shape.HasTextFrame Then
                If shape.TextFrame.HasText Then
                    shape.TextFrame.TextRange.Text = Replace(shape.TextFrame.TextRange.Text, searchText, replaceText)
                End If
            End If
        Next shape
    Next slide
    
    MsgBox "替换完成。"
End Sub