我现在用设置文本框为焦点，然后模拟TAB键两次就刚好到那个位置，再回车就可以，但是有个新问题，每次运行都不会在把焦点停在文本框上，

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

doc.getElementById("body").focus
doc.All.Item("body").focus
以上两种都不行，无法设置准确焦点。

瞎耽误时间，原来论坛上的文本编辑器可以自动识别代码，自动转换.