Templates

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.
 
V

vindys

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
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Top