10-28-2009, 10:43 AM
Hi,
Just added few stuff to your code
Just added few stuff to your code
Code:
Sub ChildObjects_Example()
Dim ValueToSet, NumberOfEdits
ValueToSet = " "
Set oDesc = Description.Create()
oDesc("micclass").Value = "WebEdit"
Set EditCollection = Browser("xxx").Page("xxx").Frame("main").ChildObjects(oDesc)
NumberOfEdits = EditCollection.Count
msgbox NumberOfEdits
For i = 0 To NumberOfEdits -1
If EditCollection(i).GetROProperty("micclass") = "WebEdit" Then
EditCollection(i).Set ValueToSet ('Here ValueToSet is empty i.e " "
End If
Next
End Sub
Call ChildObjects_Example()