View Single Post
 
Old 02-27-2014, 04:12 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,913
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

As above more info is needed.

If you simply typed text onto a Title / Text layout and then duplicated id changing the text each time you could probably have a macro fix your presentation

Sub fixMe()
Dim objCL As CustomLayout
Dim L As Long
On Error Resume Next
ActivePresentation.Slides.Range.Delete
For L = ActivePresentation.SlideMaster.CustomLayouts.Count To 1 Step -1
Set objCL = ActivePresentation.SlideMaster.CustomLayouts(L)
If objCL.Shapes(1).HasTextFrame Then
If Not objCL.Shapes(2).TextFrame2.TextRange Like "Click*" And objCL.Shapes(2).PlaceholderFormat.Type = 7 Then
With ActivePresentation.Slides.AddSlide(1, objCL)
.Shapes(1).TextFrame2.TextRange = objCL.Shapes(1).TextFrame2.TextRange
.Shapes(2).TextFrame2.TextRange = objCL.Shapes(2).TextFrame2.TextRange
End With
End If
End If
Next L
End Sub

This will ONLY work if that's exactly what you DID! MAKE SURE YOU WORK ON A COPY!!

How to use code
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote