PowerPoint Slide Note Ripper
Overwrite the Notes field on every slide with the video object name of the current slide and the video object name of the next slide.
Used for Linebreakers shows so I can see which songs are up now and next on the PPT notes.
Sub UpdateSlideNotes()
Dim oPres As Presentation
Dim oSlides As Slides
Dim oSlide As Slide
Dim oShapes As Shapes
Dim oSh As Shape
Dim NotesText As String
Dim FileNum As Integer
Dim PathSep As String
#If Mac Then
PathSep = ":"
#Else
PathSep = "\"
#End If
Set oPres = ActivePresentation
Set oSlides = oPres.Slides
Dim ThisName As String
Dim ThisSlide As Slide
Dim LastName As String
Dim LastSlide As Slide
For Each oSlide In oSlides
ThisName = ""
For Each oShape In oSlide.Shapes
If oShape.Type = msoMedia Then
If oShape.MediaType = ppMediaTypeMovie Then
ThisName = oShape.Name
End If
End If
Next
If ThisName <> "" Then
oSlide.NotesPage.Shapes(2).TextFrame.TextRange.Text = "THIS: " & ThisName
If oSlide.Shapes.HasTitle Then
oSlide.Shapes.Title.TextFrame.TextRange.Text = ThisName
End If
End If
If Not LastSlide Is Nothing Then
Set Notes = LastSlide.NotesPage.Shapes(2).TextFrame.TextRange
Notes.Text = Notes.Text & vbNewLine & vbNewLine & "NEXT: " & ThisName
End If
If (ThisName <> "") Then
Set LastSlide = oSlide
End If
Next oSlide
End Sub