KB0209: PowerPoint 2013 以降で PowerPoint ファイルを修復できない

thinkcell を使用しない再現手順

修復が完了する前に何らかのコードが破損したスライドにアクセスすると、このエラーは thinkcell なしでも再現できます。以下の再現手順では、ファイルを開いたとき、つまり修復前に、PresentationOpen イベント ハンドラーがすべてのスライドにアクセスするコードを呼び出します。

1. PowerPoint 2013 以降を新しい空のファイルで開きます。
2. PowerPoint で、Insert > thinkcell > Tools > Deactivate thinkcell に移動します。
3. Alt + F11 を押して Microsoft Visual Basic for Applications を開きます。

4. このコードを Class Module として追加し、cEventClass という名前を付けます:

   Public WithEvents PPTEvent As Application
   
   Private Sub Class_Initialize()
       MsgBox "EventHandler is now active."
   End Sub
   
   Private Sub PPTEvent_PresentationOpen(ByVal pres As Presentation)
       On Error GoTo errHandle:
       
       Debug.Print "open file: " & pres.Name
       Dim i As Integer
       
       For i = 1 To pres.Slides.Count
           Debug.Print "Slide " & pres.Slides.Item(i).SlideNumber; " / " _ 
   	& pres.Slides.Count
       Next i
       
       Exit Sub
       
   errHandle:
       Debug.Print ("VBA Error: " & Err.Number & " " & Err.Description) & vbCr
   End Sub

5. このコードを Module として追加します:

   Dim cPPTObject As New cEventClass
   
   Sub Initialize_Eventhandler()
       Set cPPTObject.PPTEvent = Application
       Debug.Print "**** EventHandler active ****"
   End Sub

6. PowerPoint のプレゼンテーション ウィンドウで、Alt + F8 を押して Macro ウィンドウを開きます
7. Initialize_Eventhandler マクロを Run します。
8. 次に、破損した PowerPoint ファイルを開いて修復を試みます。