PowerPoint found an error that it can’t correct

There are few other programs that can send you into a blood thirsty screaming rage like Microsoft Office. Often the problem is a user problem, but not always.

If you get an error when opening a file something like:

PowerPoint found an error that it can’t correct. blah blah blah

The problem could be that the file is blocked. To solve that, simply right-click on the file you’re trying to open, click Properties, then click the “Unblock” button. Open it again and all should be good. If not, then you have another problem and should continue your search. This is only 1 solution for 1 potential cause to that problem.

Cheers,

Ryan

6 comments

  1. Thanks so much – I was literally tearing my hair out over this one for several hours – glad to know that that the solution was so simple. Thanks again – Mitch.

  2. Usually it’s memory overflow issue.

    I think your presentation slides have too many invisible objects for PowerPoint to handle. You can’t correct it/them since they are invisible. Unless you remove slides, the problem will go on.

    Go to menu [File -Info – Check for Issues – Inspect Document ]

    Now, find and remove invisible data

    https://support.office.com/en-us/article/Remove-hidden-data-and-personal-information-by-inspecting-presentations-b00bf28d-98ca-4e6c-80ad-8f3417f16b58

    To prevent this issue from happening, do not copy/paste slides or pictures from unknown sources. If you write or use VBA script, BE SURE to remove invisible objects created during the slideshow.

    Below is the scrpt that can be used to remove all the invisible shape objects in the slides.

    Sub remove_invisible()

    Dim i, j as Integer

    Dim myShape as Shape

    Dim myCount as Integer

    For i = 1 To ActivePresentation.Slides.Count

    ‘ delete shapes in reversed order. Otherwise, you may miss some consecutive innvisible shapes. Do not use ‘for each’ syntax when deleting an array.

    For j =ActivePresentation.Slides(i).Shapes.Count to 1 Step -1

    set myShape = ActivePresentation.Slides(i).Shapes(j)

    If myShape.Visible = msoFalse Then

    myShape.Delete ‘ erase shapes

    myCount = myCount + 1

    End If

    Next j

    Next i

    MsgBox myCount & ” shapes were deleted.”

    End Sub

Leave a comment

Your email address will not be published. Required fields are marked *

This site uses Akismet to reduce spam. Learn how your comment data is processed.

The store is under construction. Check back in a few days. Dismiss

Exit mobile version