专家坐堂-[求助]word问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim webWord As WinForm.WebBrowser = e.Form.Controls("webWord")

Dim app As MSWord.Application

try

app = System.Runtime.InteropServices.Marshal.GetActiveObject("Word.Application")

Catch ex As Exception

msgbox("没有已打开的word文档!")

Return

End try

Dim odoc As MSWord.Document = app.ActiveDocument \' app.Documents.Open(fl)

app.UserName = UName

With odoc

.TrackRevisions = True

.ShowRevisions = True

End With

点击按钮后能生效，打开批注功能，但是我想打开窗口，自动打开批注，我无论放在打开word代码之后，还是窗口的aftershow里面，都不起作用

好像是word打开需要一两秒时间，得等word完全打开后，运行这批注代码才有用，求解决