PPT Update Question

[MR3]

I have a Microsoft Power Point Presentation that is approximately 20 slides long. At the bottom of each slide contains the same date information, however its not in the actual footer.* My question is in regards to Updating the information on only the first slide but it auto-updates on all the other subsequent slides, when I modify the first slide.* Currently I have to update the information on each slide individually and its a really redundant task that
I feel can somehow be automated.* Any help or advice would be greatly appreciated.

Thanks in Advance

 

[Macropod]

You could use a macro like the following:

Sub Update()
Dim Sld As Slide, Shp As Shape
With ActivePresentation
  For Each Sld In .Slides
    For Each Shp In Sld.Shapes
      If Not Shp.TextFrame Is Nothing Then
        If Shp.TextFrame.TextRange.Text Like "##/##/####" Then
          Shp.TextFrame.TextRange.Text = Format(Date, "DD/MM/YYYY")
        End If
      End If
    Next
  Next
End With
End Sub

As coded, the macro assumes the data is the only text in the relevant textbox, is in DD/MM/YYYY format, and is to be replaced with today's date in the same format.