تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كيف اقراء بيانات من ملف وورد الى اداة RichTextBox
#1
السلام عليكم ورحمة الله وبركاته

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



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


الملفات المرفقة
.rar   vba4a-76f0b6753c.rar (الحجم : 432.71 ك ب / التحميلات : 159)
الرد }}}
تم الشكر بواسطة:
#3
إذا كان ملف الوورد بالأمتداد RTF يمكن فتحة بكل سهولة إن شاء الله
كود :
RichTextBox1.LoadFile(FileName)
الرد }}}
تم الشكر بواسطة:
#4
الف شكر اخواني جزاكم الله خير

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

إذا امكن التعديل على المثال
الرد }}}
تم الشكر بواسطة:
#5
aftfm كتب :الف شكر اخواني جزاكم الله خير

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

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

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

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


الملفات المرفقة
.zip   WindowsApplication1.zip (الحجم : 76.62 ك ب / التحميلات : 114)
الرد }}}
تم الشكر بواسطة:
#6
لو تسمحوا إعادة رفع الملف
الرد }}}
تم الشكر بواسطة: ابو ليلى
#7
السلام عليكم و رحمة الله و بركاته
اضف المرجع 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 
اللهم لك الحمد كما ينبغي لجلال وجهك و عظيم سلطانك
في حل و ترحال
الرد }}}
تم الشكر بواسطة: ابراهيم ايبو


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  [سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER dr.programming 6 598 19-03-24, 08:56 AM
آخر رد: سلامه محمد11
  استعلام select عن مجموعة بيانات Adel27213 1 172 15-03-24, 01:11 AM
آخر رد: justforit
  تعديل بيانات عمود DataGridView دفعة واحدة مصمم هاوي 2 164 05-03-24, 08:27 PM
آخر رد: مصمم هاوي
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 222 25-02-24, 11:26 PM
آخر رد: heem1986
  [C#.NET] طباعة بيانات داتا جرد فيو h2551996 0 83 25-02-24, 02:31 PM
آخر رد: h2551996
  [VB.NET] معرفة بيانات الجهاز محمد بوقزاحة 1 309 21-02-24, 11:44 PM
آخر رد: AHMED213
  كيفية انشاء سكريبت لقاعدة بيانات من خلال الكود heem1986 1 193 20-02-24, 12:00 AM
آخر رد: Kamil
  كيفية تنفيذ أمر عرض بيانات من فورم ثان مصمم هاوي 7 329 19-02-24, 12:28 AM
آخر رد: مصمم هاوي

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم