Dim web As Windows.Forms.WebBrowser
web = e.Form.Controls("WebBrowser1").baseControl
AddHandler web.DocumentCompleted,addressof WebBrowser1_DocumentCompleted
web.ScriptErrorsSuppressed = True  \'发生角本错误后继续运行
axWebBrowser = Nothing
e.Form.Controls("WebBrowser1").OfficeToolBar = False
Dim dlg As New OpenFileDialog \'定义一个新的OpenFileDialog
If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
    Select Case dlg.FileName.SubString(dlg.FileName.LastIndexOf(".")+1,dlg.FileName.Length-dlg.FileName.LastIndexOf(".")-1)
        Case "doc","docx"
            web.Navigate(dlg.FileName)
            Do until axWebBrowser IsNot Nothing
                Application.DoEvents
            Loop

            Dim oDocument As object = axWebBrowser.Gettype().InvokeMember("Document", System.Reflection.BindingFlags.GetProperty, Nothing, axWebBrowser, Nothing)
            Dim oApplication As object = axWebBrowser.Gettype().InvokeMember("Application", System.Reflection.BindingFlags.GetProperty, Nothing, oDocument, Nothing)
            oApplication.ActiveWindow.DocumentMap = False
            oDocument.Protect (Password:="123456", NoReset:=False, Type:= _
            MsWord.WdProtectionType.wdAllowOnlyReading, UseIRM:=False, EnforceStyleLock:=False)
            oDocument.saved = True
            vars("doc") = oDocument
           
           
            Dim refmissing As [object] =  System.Reflection.Missing.Value
            Dim args As Object() = New Object(3){}
            args(0) = 24
            args(1) = 2
            args(2) = refmissing
            args(3) = refmissing
            axWebBrowser.[Gettype]().InvokeMember("ExecWB",256,Nothing,axWebBrowser,args)
        Case "xls","xlsx"
            web.Navigate(dlg.FileName)
        Case Else
            web.Navigate(dlg.FileName)
    End Select
End If