怎样让IE(webbrowser)打开word,让word嵌入IE里.

IE(或者webbrowser)打开word,一般word会嵌入IE(webbrowser)里.
但我的电脑不知道怎么回事,它会打开一个新的word窗口.
我在"文件夹选项->文件类型->高级",
找到word类型,勾上"在同一窗口中浏览",也不行啊.
这是我在vb测试的程序:
On Error Resume Next
    Dim WSHShell
    Dim iDoc As Integer
    Dim iXls As Integer
    Dim iPpt As Integer
    iDoc = 0
    iXls = 0
    iPpt = 0
    Set WSHShell = CreateObject("WScript.Shell")
    iDoc = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8\BrowserFlags")
    iXls = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8\BrowserFlags")
    iPpt = WSHShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.8\BrowserFlags")
    WSHShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8\BrowserFlags"
    WSHShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8\BrowserFlags"
    WSHShell.RegDelete "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.8\BrowserFlags"
SendKeys "N" '省去保存窗口
SendKeys "O" '省去打开窗口    WebBrowser1.Navigate "E:\work\a.doc"
    If iDoc > 0 Then
       WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Word.Document.8\BrowserFlags", 8, "REG_DWORD"
    End If
    If iXls > 0 Then
       WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Excel.Sheet.8\BrowserFlags", 8, "REG_DWORD"
    End If
    If iPpt > 0 Then
       WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\PowerPoint.Show.8\BrowserFlags", 8, "REG_DWORD"
    End If
    Set WSHShell = Nothing