Microsoft Office Forums - View Single Post - Name slides in PPT with VBA, or have an index?

noslenwerd · 03-10-2020, 01:58 PM

Quote:

Originally Posted by JohnWilson

Try something based on this:

Code:

Sub readem()

Dim osld As Slide
Dim strReport As String
Dim inum As Integer
Dim strFileName
inum = FreeFile
strFileName = Environ("TEMP") & "\data.txt"
For Each osld In ActivePresentation.Slides
strReport = strReport & "Slide Index: " & osld.SlideIndex & vbTab _
& "Name: " & osld.Name & vbCrLf
Next osld
Open strFileName For Output As inum
    Print #inum, strReport
    Close inum
    Call Shell("NOTEPAD.EXE " & strFileName, vbNormalFocus)
End Sub

Absolutely brilliant!!!

Thank you so much.