Extract first line of notes section on each slide - how to?

[TrentLane]

This might get you started

Sub first_note()
Dim osld As Slide
Dim strCode As String
Dim strResult As String
Dim iPos As Integer
For Each osld In ActivePresentation.Slides
If osld.NotesPage.Shapes(2).TextFrame.TextRange.Paragraphs(1) Like "CODE*" Then
strCode = osld.NotesPage.Shapes(2).TextFrame.TextRange.Paragraphs(1)
iPos = InStr(strCode, "=")
strCode = Mid(strCode, iPos + 1)
End If
strResult = strResult & strCode
Next osld
MsgBox strResult
End Sub

John, thank you so much... that solved several problems for me!

With those object references I was able to find a way to "save a copy as..." which I can then manipulate?

Question: there's an Application.ActivePresentation object, but if I use the .SaveCopyAs method, I get an external file copy but how would I edit the contents of that file? All the examples I see are for an active presentation.

Specifically, how would I delete a slide in that newly created copy of the master PPT by referring to a specific slide? Is it possible to create an object for a second presentation that is not active or currently opened and exists only as a file?

Also, I assume that saving as a copy also creates new unique slide IDs?