Hi all,

 

I am using the following sub to find certain clips when they exist on the
screen.

 

Sub timeInfo()

If ActiveWindow.ModuleName = "EZCDDAX" Then

Dim C, D

Set C = ActiveWindow.Clips.SearchText("Used:")

Set D = ActiveWindow.Clips.SearchText("Available:")

If C.Count > 0 And D.Count > 0 Then

Speak c(1).Line.ClipsText

Speak D(1).Line.ClipsText

Mouse.Position = D(1).Position.ScreenPoint

Else

Speak "Statistics not found"

End If

End If

End Sub

 

The problem is that when I am on a screen where the searched for clips do
not exist and I have found them previously I get an error that C(1) does not
exist. How do I set the collection variables, C and D, back to having a
count of 0. Once the clips are found, they always have a count of 1.

 

Please help.

 

Vic

 

Reply via email to