لا يمكنني إصلاح ملف PowerPoint الخاص بي باستخدام PowerPoint 2013 & 2016

تكرار الخطأ دون استخدام think-cell

يمكن تكرار الخطأ دون استخدام think-cell في حالة قيام أي تعليمات برمجية بالوصول إلى الشرائح التالفة قبل انتهاء عملية الإصلاح. في التكرار التالي، يستدعي معالج الأحداث PresentationOpen التعليمات البرمجية التي تقوم بالوصول إلى كل الشرائح عند فتح الملف، أي قبل عملية الإصلاح.

1. افتح PowerPoint 2013 أو 2016 مع ملف فارغ جديد.
2. في PowerPoint، انتقل إلى Insert > think-cell > Tools > Deactivate think-cell.
3. اضغط على المفتاحين Alt+F11 لفتح Microsoft Visual Basic for Applications.

4. قم بإضافة هذه التعليمات البرمجية بمثابة وحدة نمطية للفئة وتسميتها 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. قم بإضافة هذه التعليمات البرمجية بمثابة وحدة نمطية:

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

6. في نافذة العرض التقديمي في PowerPoint، اضغط على المفتاحين Alt+F8 لفتح النافذة وحدات ماكرو
7. قم بتشغيل وحدة الماكرو Initialize_Eventhandler.
8. والآن افتح ملف PowerPoint التالف لديك وحاول إصلاحه.