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

__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials

This worked perfectly! Thanks!

Hi (several years later) - this code worked perfectly for me as well, but is it possible to modify the code to keep the source formatting of the presentation notes when moving over to the new presentation? I tried the following code, but it doesn't work very well (doesn't keep the font sizes after slide 1, completely breaks after slide 8). Is there a better way to do this?

Sub switchNotes()
Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
On Error Resume Next
Set oTarget = Presentations("TEST2.pptx")
Set oSource = Presentations("TEST1.pptx")
For i = 1 To oSource.Slides.Count
oSource.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.Copy
oTarget.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.PasteSpecial (ppPasteRTF)
Next i
End Sub

Thanks!

Hey Alex311, it looks like the only issue was using TextRange.PasteSpecial (ppPasteRTF)... I used the regular paste and it worked like a charm.

Here's my updated version (tested and working flawlessly)

Sub switchNotes()
Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
On Error Resume Next
Set oTarget = Presentations("target.pptx")
Set oSource = Presentations("source.pptx")
For i = 1 To oSource.Slides.Count
oSource.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.Copy
oTarget.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.Paste
Next i
End Sub

Hoping it can help you and others as well.

Hi all.

After using this a little, I've made a few adjustments.

- Added a few comments in the start of the script to tell clearly how to use it.
- Commented out the 'On Error Resume Next', as it might hide a failure (I'd rather know when this is not working and debug WHY or WHERE it's not working).
- Added (commented out) a MsgBox indicating the slide # so you can tell where something failed (use only if debugging).
- Added an additional verification forcing a custom error in case the source and target presentations' slide count do not match. If for a reason you know those will not match, you may need to comment it out.

Finally, as a suggestion, I added this code to an empty presentation (needed to create a module for it) and call it from the immediate window, after I opened the other files and updated the source and target filenames). This way I keep my PPTX files clean and don't need to make them macro-enabled.

Hope it helps

I'm wondering if anyone can help me with this. I've used this macro a couple of times successfully, but now it is not working for me anymore. It just copies "1.7.2013". This is driving me nuts! Any advice appreciated.