I have been trying to write a script to count symbols within a document. Has anyone done this as I cannot make it work. Just need it to copy the name and value (number of items) to the clip board so I can use it from there.
I found an old thread that counted shapes and this worked well, however need to have it count symbols instead, but would not work when I modified it.
Any help would be greatly appreciated and thank you in advance for any assistance.
Sub SymbolCount()Dim s As Shape, sr As ShapeRangeSet sr = ActiveSelectionRangeFor Each s In srIf Not s.Type = cdrSymbolShape Thens.RemoveFromSelectionEnd IfNext sMsgBox ActiveSelection.Shapes.Count & " Symbols Selected"End Sub
Are you looking to count number of symbols, count of each symbol instances, total symbol instances?
Single or multiple page document?
Hi and thanks for your response. I need to count the number of each symbol across multi pages. We use Corel to draw electrical plans so use numerous symbols to do this. We normally print the plans and count manually but then found it is possible to script this process.
Would you please PM some sample file to be able test what I have prepared. Thank you.
HI, sorry finally got back on to this project. How do I load this Script in to Corel 2018. Have tried multiple ways but wont load.