[alsaab120]

السلام عليكم ورحمة الله وبركاته


احببت اشارك معكم هذا الكود لعرض ملف الوورد داخل ادات WebBrowser

اولا الكود 

كود :

Public Sub ssss()
  Dim fileName1 As String
        Dim ofd As New OpenFileDialog
        ofd.Title = "اختر الملف"
        If ofd.ShowDialog = DialogResult.OK Then
            fileName1 = ofd.FileName
        Else
            Exit Sub
        End If

        Dim typeWord As Type = Type.GetTypeFromProgID("Word.Application")
        Dim WordApp As Object = Activator.CreateInstance(typeWord)
        Dim htmlFormat As Integer = 8
        Dim Docpath As Object() = {fileName1}
        Dim HtmPath As Object() = {Application.StartupPath & "\WordDoc.HTML", htmlFormat}
        Dim WordDocs As Object = typeWord.InvokeMember("Documents", Reflection.BindingFlags.GetProperty, Nothing, WordApp, Nothing)
        Dim doc As Object = WordDocs.GetType.InvokeMember("Open", Reflection.BindingFlags.InvokeMethod, Nothing, WordDocs, Docpath)
        doc.GetType.InvokeMember("SaveAs", Reflection.BindingFlags.InvokeMethod, Nothing, doc, HtmPath)
        WordApp.quit()
        WebBrowser1.Visible = True
        WebBrowser1.Navigate(HtmPath(0))
   End Sub