Function setWebEdit(beforWebEditObj,webEditProperty,propertyValue,indexWebEdit,webEditValue)
set thisPageWebEditObj=Description.Create()
thisPageWebEditObj("misclass").Value="WebEdit"
thisPageWebEditObj( webEditProperty).Value=propertyValue
获得当前对象中所有webEdit的对象,
set setWebEditObj=beforWebEditObj.ChildObjects(thisPageWebEditObj)
cc= setWebEditObj.count
if cc=0 then
msgbox "没有找到"
elseif cc>=1 then
这里可以继续判断,据我观察,虽然这几个webedit都是相同的属性,但是一般说来他们的outerhtml往往存在某个关键字与其它有不同之处,我们可以利用这点,进行更深层次的判断,这样的话,我们就可以省略indexWebEdit参数的指定了。
setWebEditObj(indexWebEdit).Set webEditValue
end if
End Function