vDoc = WebBrowser1.Document   '提示要求对象
Set vDoc = WebBrowser1.Document   '正确执行