VBAを使ってパワーポイント内の文字列を見つけて置き換える方法

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=BYfKvVmtAGE