نسخ محتوى ملف ورد الى Richboxt

#13 فبراير 2012 في 07:17 صاحب الموضوع

صباح الخير يا شباب العرب

وكل عام وانتم بخير بمناسبة المولد النبوي الشريف ::

وجمعه مباركه :

اريد انسخ محتوى ملف ورد 2010 . عملت الكود الي انسخه على file Streem ولكن لما انسخ المحتوى الى Richbox ينسخلي بيانات غير مفهومة (Garbge text)بمعنى (لا ينسخ نفس البيانات : علما ان البيانات بالغة الانجليزية وبعض الملفات بالعربية) .

جربت انسخ من ملف txt ينسخلي المحتوى بالضبط وبدون لخبطه .

المهم انا محتاج انسخ من ملف ورد لان المستخدم طلب مني هذا الشغلة..

هذا الكود وارجو من لدية معرفه بالموضوع يفيدنا .

Try

" Dim strPath As String = "C:\Users\Toshiba\Desktop\Test.docx

( Dim fStream As New FileStream(strPath.ToString, FileMode.Open, FileAccess.Read

(Dim sReader = New StreamReader(fStream

(sReader.BaseStream.Seek(0, SeekOrigin.Begin

While sReader.Peek() > 0

()RichTextBox1.Text += sReader.ReadLine

End While

() sReader.Close

Catch ex As Exception

(MessageBox.Show(ex.Message

End Try

جربت اعدل في الكود بهذي الطريقة بدون فايده

(Dim sReader = New StreamReader(fStream, System.Text.Encoding.Unicode

#23 فبراير 2012 في 09:02

السلام عليكم.

هذه الطريقة لن تعمل معك لأن تركيبة ملف الورد ليست أحرف مثل ملفات txt.

إحدى الطرق تكون بإضافة ال Reference التالي: Microsoft Word Object Library الموجود تحت التصنيف COM

عندها يمكنك كتابة الكود التالي:

                var wordApp = new Microsoft.Office.Interop.Word.Application { Visible = false };
                object nullobj = System.Reflection.Missing.Value;
                object file = openFileDialog.FileName;
                Microsoft.Office.Interop.Word.Document doc = wordApp.Documents.Open(ref file, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj);

                doc.ActiveWindow.Selection.WholeStory();
                doc.ActiveWindow.Selection.Copy();
                IDataObject data = Clipboard.GetDataObject();
                string text = data.GetData(DataFormats.Text).ToString();
                Console.WriteLine(text);
                doc.Close(ref nullobj, ref nullobj, ref nullobj);
                wordApp.Quit(ref nullobj, ref nullobj, ref nullobj);

                rtb.Text = text;

                MessageBox.Show("File is loaded successfully.");

لقد أرفقت لك المشروع للتجربة.

WindowsFormsApplication8.zip

مدونتي

#34 فبراير 2012 في 05:45

Adel Khayata كتب:

السلام عليكم.

هذه الطريقة لن تعمل معك لأن تركيبة ملف الورد ليست أحرف مثل ملفات txt.

إحدى الطرق تكون بإضافة ال Reference التالي: Microsoft Word Object Library الموجود تحت التصنيف COM

عندها يمكنك كتابة الكود التالي:

                var wordApp = new Microsoft.Office.Interop.Word.Application { Visible = false };
                object nullobj = System.Reflection.Missing.Value;
                object file = openFileDialog.FileName;
                Microsoft.Office.Interop.Word.Document doc = wordApp.Documents.Open(ref file, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj, ref nullobj);

                doc.ActiveWindow.Selection.WholeStory();
                doc.ActiveWindow.Selection.Copy();
                IDataObject data = Clipboard.GetDataObject();
                string text = data.GetData(DataFormats.Text).ToString();
                Console.WriteLine(text);
                doc.Close(ref nullobj, ref nullobj, ref nullobj);
                wordApp.Quit(ref nullobj, ref nullobj, ref nullobj);

                rtb.Text = text;

                MessageBox.Show("File is loaded successfully.");

لقد أرفقت لك المشروع للتجربة.

اخي اشكرك جزيل الشكر .. الحل يشتغل 100 % . وجزاك الله خير على المعلومات المفيده جدا .. واتمنى لك دوام التوفيق في حياتك ..

استفسار ثاني : اذا اردت نقل المحتوى من richbox الى الورد .. هل لازم اعمل بنفس هذه الطريقة .

#44 فبراير 2012 في 08:25

اقتباس
استفسار ثاني : اذا اردت نقل المحتوى من richbox الى الورد .. هل لازم اعمل بنفس هذه الطريقة .

طبعاً ستستخدم نفس المكتبة و لكن ابحث عن أمر SaveAs فهو يقوم بعملية الحفظ.

مدونتي

#59 فبراير 2012 في 12:07

فعلا معلومات مفيدة يا شباب جزاكم الله خيرا

اخوتي ممكن سؤال: اريد ان اعمل برنامج لاكتشاف الكلمات المكتوبة بشكل خطأ وان اضع خط احمر تحت كل كلمة خطأ في النص.

سؤالي هو كيف اضع هذا الخط الاحمر؟؟؟

وفقكم الله واياي لكل ما فيه الخير

#610 فبراير 2012 في 00:20

ضع سؤلك في موضوع جديد

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

#711 فبراير 2012 في 19:51

اخي العزيز Adel Khayata اشكر تواصلك الدائم معانا ... وجزاك الله خير .

استفسار : اذا كان من ضمن محتويات ملف الورد صور ونصوص .. كيف ممكن انقل الكل الصور والنصوص .. الحل السابق يعمل للنصوص فقط ؟

وشكرا .

#812 فبراير 2012 في 02:58

انظر الرابط

الرابط الخاص بي

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

نسخ محتوى ملف ورد الى Richboxt

مواضيع مشابهة

عدد الزوار حالياً