如何让word启动时同时运行某个宏

autoexec宏可以在word启动时运行，但是如下的宏，好像是先运行这个宏，再打开文档，如果可以做到打开文档和运行宏同时进行，或者先吧文档打开后，再运行宏也可以
Sub autoexec()
Dim httpRequest As Object
  Set httpRequest = CreateObject("MSXML2.XMLHTTP.3.0")
  httpRequest.Open "GET", "http://www.163.com", False
  httpRequest.send
  If httpRequest.readyState = 4 Then
'MsgBox "aaa"
Else
'MsgBox "bbb"
End If
End Sub

在自动宏里有如上代码，模板放在Microsoft Office\OFFICE11\STARTUP，在启动word时便会自动运行，但是有一个问题，这时如果网速很慢，就会使word打开文档较慢，可不可以让word启动时，打开文档和运行宏 同步进行，现在是要等宏运行完了再打开文档

或者让文档加载完后再运行宏里的内容，这样体验好些

[ 本帖最后由 tongyi 于 2011-6-6 14:19 编辑 ]

请使用Private Sub Document_Open()事件。
该事件位于当前文档的ThisDocument类模块中。