11-19-2010, 11:42 AM
Hi Ramesh,
Try this script once, please let me know if you get any errors.
Try this script once, please let me know if you get any errors.
Code:
set desc=Description.create()
desc("micclass").value="WebTable"
desc("name").value="Add New Work" ' Edit here if name is different
'Add more values incase if exists for the table
Set WebEdits=Browser("title:=Works Information Management System").page("title:=Works Information Management System").ChildObjects(desc)
rCount=WebEdits(0).rowCount
'WebEdits(0) here 0 is used to access the first webtable, change it if different table
For r=1 To rCount-1
cCount=WebEdits(0).columnCount(r)
For c=1 To cCount-1
oCount=WebEdits(0).ChildItemCount(r,c,"Link")
obj=1 To oCount-1
If (StrComp(WebEdits(0).ChildItem(r,c,"Link",obj).GetROProperty("innertext"),"Cost Estimate")=0) Then
WebEdits(0).ChildItem(r,c,"Link",obj).Click
End If
Next
Next