Revert all symbols to objects macro?

no only on current  page

for all pages on active document try code below

Sub RevertSymbolsToObjects()
Dim sh As ShapeRange, s As Shape, dp As Page
ActiveDocument.BeginCommandGroup ("RevertToOjects")
For Each dp In ActiveDocument.Pages
dp.Activate
Set sh = ActivePage.Shapes.FindShapes(Type:=cdrSymbolShape)
For Each s In sh
s.Symbol.RevertToShapes
Next s
Next dp
ActiveDocument.EndCommandGroup
End Sub

You can edit the line:

For lngPageIndex = 1 To 5

to process a different set of pages in the document.

That's a little bit painful, but it has the benefit that, if you have success, you can at least save your document and have part of the job done!

You might check, as you did earlier, to see if it's going crazy with memory use.

How complicated are the symbols?

Nothing crazy. Mostly hardware.

I guess I am wondering - even aside from automation - why the reverting of symbols to regular shapes is so slow.

Any chance that this is some of the nasty AMD video card / Windows 10 Creators Update performance problems some users have experienced with CorelDRAW?

I know that some of your information is proprietary. Could you share one of the symbols that takes ~5 minutes to revert?

If you create a new symbol - something simple - then is that also very slow to revert?