'The following example retrieves the collection of WebEdit objects that
contain credit card numbers 'and inserts them in an Excel file.
Dim NumberOfEdits
'Create a Description object to help retrieve all WebEdit objects in a specific page.
Set oDesc = Description.Create()
'Retrieve all WebEdit objects from this page. oDesc("micclass").Value = "WebEdit"
Set EditCollection=Browser("Book a Flight: Mercury")_
.Page("Book a Flight: Mercury").ChildObjects(oDesc)
NumberOfEdits = EditCollection.Count
'Use the GetROProperty to retrieve the "text" property (which in this case
represents a credit card number) and insert all retrieved credit card numbers
in an Excel file.
For i = 0 To NumberOfEdits - 1
CurrentCreditNumber = EditCollection(i).GetROProperty("text")
WriteToCreditCardNumberExcelFile (CurrentCreditNumber)
Next
