VBA Macro to convert OLE to text results in "Word has encountered a prob." error

Question

I am using the following VBA script to parse through a word document and open every OLE table object, copy the table, and paste back into word so that the data in the tables can be searchable. However, after the script runs for a while, Word gives me an error message stating "Word has encountered a problem. You will not be able to undo this action once it is completed. Do you want to continue?" Clicking yes leads the document to stop responding and crash with no changes been made. Choosing No just keeps repopping up the same message and I'm assuming this leads to the changes not being saved. Is something wrong with the script ? I thought it was somehow filling up the memory by opening all those OLE objects, but I think activating the word document shifts focus from the OLE object and hence closes the embedded table to continue parsing through the original document. I think it's probably related to each iteration of the loop although the message doesn't show up for every OLE table. I am stuck as to how to investigate further into what is causing this issue.

    wrdActDoc.InlineShapes(lShapeCnt).OLEFormat.Activate
    Selection.Document.Select
    Selection.WholeStory
    Selection.Cut
    wrdActDoc.Activate
    Selection.PasteAndFormat (wdPasteDefault)

Answer 1

I Googled for "Word undo" and found the following:

"be sure to save once in a while since the undo stack will be cleared"

So, for example, safe the document [to a temp name] after processing every 10 objects.