[aftfm]

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

هل من الممكن قراءة بيانات من ملف وورد الى اداة RichTextBox

[مبرمج بلا حدود]

[COLOR="#008000"]وعليكم السلام ورحمة الله وبركاته
تفضل اخي ارفقتلك مثال كامل وجاهز عن برنامج notepad
وهو يفتح ملفات التيكست فقط
ما عليك الا ان تضيف امتداد الورد بجانب امتداد التيكست
وبالتوفيق ان شاء الله



ملاحظة :- البرنامج سورس كود وهو ليس لي لكنه من المنتدى القديم
ربي يحفظك[/COLOR]

[ismail2012]

إذا كان ملف الوورد بالأمتداد RTF يمكن فتحة بكل سهولة إن شاء الله

كود :

RichTextBox1.LoadFile(FileName)

[aftfm]

الف شكر اخواني جزاكم الله خير

لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)

إذا امكن التعديل على المثال

[مبرمج بلا حدود]

aftfm كتب :الف شكر اخواني جزاكم الله خير

لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)

إذا امكن التعديل على المثال

[COLOR="#006400"]السلام عليكم ورحمة الله وبركاته

تفضل اخوية العزيز المثال بالمرفقات
وبالتوفيق ان شاء الله
ربي يحفظك ويسهلك كل الخير[/COLOR]

[أمجد وضاح]

لو تسمحوا إعادة رفع الملف

[ابو ليلى]

السلام عليكم و رحمة الله و بركاته
اضف المرجع 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