[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
اضف المرجع Microsoft.Office.Interop.Word الى مشروعك

ثم في اعلى الفروم استورد Microsoft.Office.Interop
استخدم الكود التالي لفتح الملفات

PHP كود :

   Private Sub OpenFile()
        Try
            OpenFileDialog1.Title = "فتح ملف"
            OpenFileDialog1.DefaultExt = "*.DOC"
            OpenFileDialog1.Filter = "WORD Files|*.DOC|Rich Text Files|*.rtf|WORD2010-2007|*.DOCX|Text Files|*.txt|HTML Files|*.htm|All Files|*.*"
            OpenFileDialog1.FilterIndex = 1
            OpenFileDialog1.ShowDialog()
            Clipboard.Clear()
            Dim objWord As New Word.Application
            Dim objDoc As New Word.Document

            objDoc = objWord.Documents.Open(OpenFileDialog1.FileName)

            objWord.ActiveWindow.Selection.WholeStory()
            objWord.ActiveWindow.Selection.Copy()
            objWord.ActiveWindow.Selection.CopyFormat()

            Dim atext As IDataObject
            atext = Clipboard.GetDataObject


            Dim RTFdata As String = atext.GetData(DataFormats.Rtf).ToString()
            RichTextBox1.Clear()
            RichTextBox1.Paste()

            objWord.ActiveDocument.Close()

        Catch ex As Exception

        Finally
            For Each Process In System.Diagnostics.Process.GetProcesses
                If Process.ProcessName = "WINWORD" Then
                    Process.Kill()
                End If
            Next
        End Try

    End Sub