如何使用VBA在powerpoint中查找和替换字符串

Question

我想在ppt的幻灯片1中将"hello"替换为"world".如何使用VBA脚本执行此操作.

Answer 1

Sub findAndReplaceText()
Dim sld As Slide
Set sld = ActivePresentation.Slides(1)
Dim shp As Shape
For Each shp In sld.Shapes
If shp.HasTextFrame Then
    If shp.TextFrame.HasText Then
        shp.TextFrame.TextRange.Text = Replace(shp.TextFrame.TextRange.Text, "hello", "world")
    End If
End If
Next shp
End Sub

参考:https://www.youtube.com/watch？v = BYKKVmtAGE