Hi!

I'm hoping to edit this code (which works perfectly for plain text) to keep source formatting of the presenter notes when moving from "TEST1.pptx" to "TEST2.pptx". To be clear, this current code works for plain text, but I would like to edit it so that it keeps the source formatting.

Is this possible and if so, could someone point me in the right direction? Thank you in advance!


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
oTarget.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange = _
oSource.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange
Next i
End Sub