请问，下边这种写法为什么没有内容呢？

zxz1337

On Error Resume Next
Set Doc = Browser("Google").Page("Google").Object  '获取page中的所有对象
msgbox Doc.all
For Each Element In Doc.all
        TagName = Element.TagName   '获取标签名
        InnerText = Elemment.InnerText   '获取InnerText
    Reporter.ReportEvent micDone, TagName,InnerText
Next

ermine

1. On Error Resume Next，所以不报错，继续执行。
2.msgbox Doc.all   Doc.all是个对象的集合，不能用msgbox
3.Elemment写错了，多了个m