duplicate slides in a presentation

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

How can I find out the duplicate slides in a presentation.
Can I sort slides baed on some criteria like ascending order of slide title?
 
If you run this vba (adapted from Steve Rindsberg's code) then you'll get a
text file in the presentation folder. Open it in word and table > sort
--
Sub GatherTitles()
On Error GoTo ErrorHandler
Dim oSlide As Slide
Dim strTitles As String
Dim strFilename As String
Dim intFileNum As Integer
Dim PathSep As String
PathSep = "\"
On Error Resume Next
For Each oSlide In ActiveWindow.Presentation.Slides
strTitles = strTitles _
& oSlide.Shapes.Title.TextFrame.TextRange.Text _
& " Slide: " _
& CStr(oSlide.SlideIndex) & vbCrLf
Next oSlide
On Error GoTo ErrorHandler
intFileNum = FreeFile
strFilename = ActivePresentation.Path _
& PathSep _
& Mid$(ActivePresentation.Name, 1, _
Len(ActivePresentation.Name) - 4) _
& "_Titles.TXT"
Open strFilename For Output As intFileNum
Print #intFileNum, strTitles
NormalExit:
Close intFileNum
Exit Sub
ErrorHandler:
MsgBox Err.Description
Resume NormalExit
End Sub

Did that answer the question / help?
_____________________________
John Wilson
Microsoft Certified Office Specialist
http://www.technologytrish.co.uk/ppttipshome.html
 
Thnaks for the solution. This is good work around for my situation.
After having the slide titles and the numbers one can manually sort them.
 
Back
Top