PowerPoint — Force to reapply the Notes Master (i.e. the template with the design/layout/style of all notes) to the notes on each slide — It's useful if you change the Notes Master design but Powerpoint only applies it to new slide notes you create so you're stuck with having your old notes in the old style

powerpoint-force-reapply-note-master.vba

Sub RestoreNotesPages()
  Dim oSld As Slide
  Dim oShp As Shape
  Dim lIdx As Long
    
  On Error Resume Next
    
  With ActivePresentation
    For Each oSld In .Slides
      With oSld.NotesPage.Shapes
        ' Delete the objects from the notes page in reverse order
        For lIdx = .Count To 1 Step -1
          ' Make a copy of any existing notes pane text
          If .Item(lIdx).PlaceholderFormat.Type = ppPlaceholderBody Then
            ' IsNumeric() is there to avoid false positives on slide page number
            If .Item(lIdx).TextFrame.HasText And Not IsNumeric(.Item(lIdx).TextFrame2.TextRange) Then
              .Item(lIdx).TextFrame2.TextRange.Copy
              .Item(lIdx).Delete    ' Delete the text
            End If
          End If
          .Item(lIdx).Delete        ' Delete the placeholder
        Next
          
        DoEvents
          
        ' Recreate the placeholder objects on the notes page
        .AddPlaceholder ppPlaceholderTitle
        .AddPlaceholder(ppPlaceholderBody).TextFrame2.TextRange.Paste
        .AddPlaceholder ppPlaceholderSlideNumber
         
      End With
    Next
  End With
End Sub

great work. thanks. really helped me with my slides.

@alikhawaja Glad it helped!