I have this code, that work well :
SubMacro checkColors Protected
Define i As Integer
Define ColorName As String
Define Pattern As String
For i = 1 to activeDoc.colorCount
ColorName = activeDoc.colors[i].name
Pattern = Mid(ColorName, Find(ColorName, "(", 1) + 1, 3)
If (Pattern <> "co=") Then
Select If Color Is Equal To ColorName
If (activeDoc.selectedElements = 0) Then
but if I replace the red colored code by this :
If (activeDoc.selectedElements <> 0) Then
It no works more.
Is it possible to know why ? for me that make no sense.
Thank you for any help.
Just checked my macros - I've used <> for numbers OK, so it can't be that. I haven't used the Return function though so it might be the way that works?