+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اقراء بيانات من ملف وورد الى اداة RichTextBox (/showthread.php?tid=7240)
كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - aftfm - 04-12-12
السلام عليكم ورحمة الله وبركاته
هل من الممكن قراءة بيانات من ملف وورد الى اداة RichTextBox
كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - مبرمج بلا حدود - 04-12-12
[COLOR="#008000"]وعليكم السلام ورحمة الله وبركاته
تفضل اخي ارفقتلك مثال كامل وجاهز عن برنامج notepad
وهو يفتح ملفات التيكست فقط
ما عليك الا ان تضيف امتداد الورد بجانب امتداد التيكست
وبالتوفيق ان شاء الله
ملاحظة :- البرنامج سورس كود وهو ليس لي لكنه من المنتدى القديم
ربي يحفظك[/COLOR]
تفضل اخي ارفقتلك مثال كامل وجاهز عن برنامج notepad
وهو يفتح ملفات التيكست فقط
ما عليك الا ان تضيف امتداد الورد بجانب امتداد التيكست
وبالتوفيق ان شاء الله
ملاحظة :- البرنامج سورس كود وهو ليس لي لكنه من المنتدى القديم
ربي يحفظك[/COLOR]
كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - ismail2012 - 04-12-12
إذا كان ملف الوورد بالأمتداد RTF يمكن فتحة بكل سهولة إن شاء الله
كود :
RichTextBox1.LoadFile(FileName)كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - aftfm - 04-12-12
الف شكر اخواني جزاكم الله خير
لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)
إذا امكن التعديل على المثال
كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - مبرمج بلا حدود - 05-12-12
aftfm كتب :الف شكر اخواني جزاكم الله خير
لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)
إذا امكن التعديل على المثال
[COLOR="#006400"]السلام عليكم ورحمة الله وبركاته
تفضل اخوية العزيز المثال بالمرفقات
وبالتوفيق ان شاء الله
ربي يحفظك ويسهلك كل الخير[/COLOR]
RE: كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - أمجد وضاح - 03-05-20
لو تسمحوا إعادة رفع الملف
RE: كيف اقراء بيانات من ملف وورد الى اداة RichTextBox - ابو ليلى - 03-05-20
السلام عليكم و رحمة الله و بركاته
اضف المرجع 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