HI All
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.
Thanks
Grant
???
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
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.