Templates

  • Thread starter Thread starter Kevin
  • Start date Start date
K

Kevin

I completed a presentation; however no management has changed the company
info that is located along the page. How can I change the existing
presentation format and change everything to the new company Info without
cutting and pasting.
 
Are you having the info in slides or in master? Which version of ppt do you
use?

If info is in slides, run this macro to replace all the text with old info

Sub ConvertSlideTexts()
Dim s1 As String
Dim s2 As String
s1 = "Earlier Company Info"
s2 = "Current Company Info"

For i = 1 To ActivePresentation.Slides.Count
With ActivePresentation.Slides(i)
For j = 1 To .Shapes.Count
With .Shapes(j)
If .HasTextFrame Then
.TextFrame.TextRange.Replace s1, s2
End If
End With
Next j
End With
Next i


End Sub
 
Back
Top