Изменить визуализированный HTML в vba Управление WebBrowser

Question

У меня есть форма Access 2010 с элементом управления WebBrowser, который я бы хотел удалить кнопкой отправки из отображаемого HTML. Мой элемент управления WebBrowser отлично работает, когда я читаю HTML, но получаю сообщение об ошибке при попытке изменить сделанное. Я пробовал несколько методов, и все они возвращают ошибку «Обязательный объект». У меня много рабочего кода, который использует элемент управления WebBrowser, поэтому я не решаюсь изменить его для другого элемента управления. Есть ли способ сделать это с помощью этого элемента управления?

Ниже приведен фрагмент последней версии кода:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
    Dim strLook As String 
    Dim doc As HTMLDocument 
    Set doc = WebBrowser1.Document 
    Dim txtInner 
    strLook = "<input type=""submit"" name=""subaction"" value=""Force"" class=""inputfield"">" 
    txtInner = WebBrowser1.Document.Body.innerHTML 
    txtInner = Replace(txtInner, strLook, "") 
    Webrowser1.Document.Body.innerHTML = txtInner 
End Sub 

Заранее спасибо!

Answer 1

Что-то вроде:

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant) 
    Dim doc As HTMLDocument 
    Dim els 
    Set doc = WebBrowser1.Document 

    Set els = doc.getElementsByTagname("input") 
    For Each el In els 
     If el.Value = "Force" And el.className = "inputfield" Then 
      el.ParentNode.RemoveChild el 
      Exit For 
     End If 
    Next el 
End Sub