VB ppt 里批量替换怎么写

liufei2081

这个是VBA 在PPT里的批量替换，怎么转换成在VB批量替换呢，大神帮帮忙
For Each a In ActivePresentation.Slides
    For Each s In a.Shapes
      If s.HasTextFrame Then
        With s.TextFrame
            If .TextRange.Text = "需要替换的内容" Then
                If .HasText Then .TextRange.Text = ""
            End If
        End With
      End If
    Next
Next