Is there a macro that would seek out all symbols in a document and revert them all to objects? I believe the symbols are really bogging down my file and there are too many at this point to find them. Thanks.
try here
Sub RevertSymbolsToObjects()
Dim sh As ShapeRange, s As Shape Set sh = ActivePage.Shapes.FindShapes(Type:=cdrSymbolShape)For Each s In sh s.Symbol.RevertToShapesNext sEnd Sub
Are these supposed to jump to each page?
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 PageActiveDocument.BeginCommandGroup ("RevertToOjects")For Each dp In ActiveDocument.Pagesdp.ActivateSet sh = ActivePage.Shapes.FindShapes(Type:=cdrSymbolShape)For Each s In shs.Symbol.RevertToShapesNext sNext dpActiveDocument.EndCommandGroupEnd Sub
ruckstande said:I believe the symbols are really bogging down my file and there are too many at this point to find them.
After you try this, please share your results in this thread, i.e., whether or not you saw a change in performance by converting the symbols to regular objects. I am curious, and I expect that other users may be, too.