title: Loop VBA through multiple files
body: <p>below I have some code which finds and replaces a certain word. However, my knowledge of VBA is limited so I don't know how to loop this code through multiple Powerpoint files in a folder and save them. Also it only takes words written on the first sheet, I don't know what's up with that?</p>
  
  <pre><code>Sub DemoFindReplace()
  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, "TEST", "REPLACE")
      End If
  End If
  Next shp
  End Sub
  </code></pre>