按IE键对象变量或未设置块变量时出错

Question

我知道还有其他类似于我的问题，但我对此很陌生，其中很多对我没有意义。

话虽如此，我已经研究过这个错误，它说我需要声明一个对象变量，设置对象，然后在正确的点使用With，据我所知，我已经尝试过了，但仍然得到了错误

  

对象变量或未设置块变量

我的代码是

Public Sub a()

Dim Button4 As Object
Dim ie As New InternetExplorer

Set ie = CreateObject("InternetExplorer.Application")

ie.navigate "https://reporting.med.siemens.com/sap(bD1lbiZjPTEwMSZkPW1pbg==)/bc/bsp/sie/med_cm/start.htm"
ie.Visible = True

Do While ie.ReadyState <> READYSTATE_COMPLETE Or ie.Busy: DoEvents: Loop


With ie.Document

Set Button4 = ie.Document.getElementById("seite-itm-2")
Button4.Click

End With    
 MsgBox "complete"
End Sub

我要做的是按下网页上的“按钮”，

<TD onclick="return htmlbSL(this,7,'seite:sel_tab_2','','3','sel_tab_2')" id=seite-itm-2 class=urTbsLabelOff onkeydown="if (sapUrMapi_checkKey(event,'keydown',new Array('32'))){return htmlbSL(this,7,'seite:sel_tab_2','','3','sel_tab_2')};sapUrMapi_TabStrip_keySelect('seite',2,4,event);" noWrap><SPAN id=seite-itm-2-txt title="Bookmarks     " class=urTbsTxtOff>Bookmarks </SPAN></TD>

有人可以帮忙吗？

谢谢