I want to copy the text from PowerPoint slides to the notes section of the PowerPoint.
If there are 2 shapes with text – I want to copy both, appending the text in the notes section.
I tried the code below —but am getting an error message on “curNotes = curSlide.NotesPage.Shapes(1).”
Please help! :confused:
Dim curPres As PowerPoint.Presentation Dim curSlide As Slide Dim curShape As Shape Dim curNotes As Shape For Each curSlide In ActivePresentation.Slides For Each curShape In curSlide.Shapes If curShape.TextFrame.HasText Then curShape.TextFrame.TextRange.Copy curNotes = curSlide.NotesPage.Shapes(1) curNotes.TextFrame.TextRange.Paste End If Next curShape Next curSlide End Sub