View Single Post
Old 03-10-2020, 07:53 AM
JohnWilson JohnWilson is online now Windows 10 Office 2016
Join Date: Nov 2008
Location: UK
Posts: 1,822
JohnWilson will become famous soon enoughJohnWilson will become famous soon enough

Try something based on this:

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
Microsoft PowerPoint MVP
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote