WORD VBA 之 WebBrowser控件 出现错误的问题 请问一下如何修改?

Question

一个VBA出现错误的问题，请问一下如何修改:
我在窗体UserForm2新增一个WebBrowser控件
然后在模块写一个子程序，想透过UserForm2的WebBrowser1上网查单字，如下

Sub bing查单字测试()
UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
'最后的Test就是要查的单字

aty = UserForm2.WebBrowser1.Document.GetElementById("t_dummydiv").innerText
'执行到这里出现 "运行时错误91 没有设定对象变量或with局部变量"

MsgBox aty
End Sub

Answer 1

搞了一天，原来不能定义成HTMLDocument或HTMLElement或String。
.value也没用。 必须定义成Variant。

Sub bing查单字测试()
Dim aty As Variant '原来这里要定义成Variant

UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
'最后的Test就是要查的单字

aty = UserForm2.WebBrowser1.Document.GetElementById("t_dummydiv").innerText
'执行到这里出现 "运行时错误91 没有设定对象变量或with局部变量"

MsgBox aty
End Sub

Answer 2

可能是网页没有载入就执行到下面了
可以用
UserForm2.WebBrowser1.Navigate2 "https://www.bing.com/translator/…"
while UserForm2.WebBrowser1.IsBusy
doevents
wend
下面的代码