Find Hidden Rows in a Table

Find Hidden Rows in a Table

'*****************************************************************************
Function FindTableHiddenRows(oTableId,BrowserProp)

Dim oDocument
Dim oTableObject
Dim oTableRowCount
Dim rIndex

Set oDocument=browser(BrowserProp).Object.Document

Set oTableObject=oDocument.getElementById(oTableId)

oTableRowCount=oTableObject.Rows.length

For rIndex=0 to oTableRowCount-1
  If  oTableObject.rows(rIndex).style.display <> "" and lcase(oTableObject.rows(rIndex).style.display)="none" then
 msgbox "RowNumber "&rIndex+1&" with text '"& oTableObject.rows(rIndex).innertext &"' Is hidden"
  End If
Next

Set oDocument=nothing
Set oTableObject=Nothing
End Function
'*****************************************************************************
'Calling the Function
FindTableHiddenRows "MyTable","title:=Google"

Here MyTable is the Table HTML ID.
____________________________________________________________


Please send your Suggestions and Doubts to my yahoo group http://in.groups.yahoo.com/group/qtpsudhakar