If the notes are just plain text (no formatting) then you can adapt the code for pictures.
The notes are normally in Shapes(2) of the notes page. If for some reason theya re not it may crash.
Sub switchNotes()
Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
On Error Resume Next
'NOTE use the names of your own presentations
Set oTarget = Presentations("Image1.pptx")
Set oSource = Presentations("Image2.pptx")
For i = 1 To oSource.Slides.Count
oTarget.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange = _
oSource.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange
Next i
End Sub
|