03-10-2020, 01:58 PM
|
Novice
|
|
Join Date: Dec 2019
Posts: 15
|
|
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.
|