ノートを削除するPowerPointマクロ

下記のコードは「Remove Notes Pages in PowerPoint (VBA)」に載っていたコードで、Office 2007で追加されたDocumentInspectorオブジェクトのFixメソッドを利用してノートを削除するコードです。

Option Explicit

Public Sub Sample()
  Dim ret As String
  
  Application.ActivePresentation.DocumentInspectors(4).Fix msoDocInspectorStatusIssueFound, ret
  Debug.Print ret
End Sub