Need Macro to Copy Notes from one PPT to another

Dan_nn · #6 04-10-2023, 08:58 AM

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.

Code:

Sub switchNotes()
' Target and Source files should be open
' oSource and oTarget should be filled with filename (no path)
' use with 'call switchNotes()'
' 'On Error Resume Next' commented out to spot failed process
' MsgBox used for debug purposes when needed

Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
'On Error Resume Next
Set oSource = Presentations("mySource.pptx")
Set oTarget = Presentations("myTarget.pptx")
If oSource.Slides.Count <> oTarget.Slides.Count Then Err.Raise -10000000
For i = 1 To oSource.Slides.Count
'MsgBox ("diapo " & i)
oSource.Slides(i).NotesPage.Shapes(2).TextFrame.TextRange.Copy
oTarget.Slides(i).NotesPage.Shapes(2).TextFrame.TextRange.Paste
Next i
End Sub

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
PowerPoint Macro - Copy and Replace pictures from one PPT to another PPT	mrayncrental	PowerPoint	2	06-09-2014 02:52 AM
Macro to copy formula from one cell to another	anwar	Excel Programming	1	04-25-2014 08:27 PM
Word macro: copy from different tables into one table	adisl	Word VBA	4	03-25-2014 02:40 AM
How to do an automation for copy paste, added new row (macro)	jpol	Excel Programming	1	03-01-2013 05:53 AM
Powerpoint copy notes	no1_titch	PowerPoint	0	09-07-2010 06:16 AM