04-12-12, 03:56 PM
04-12-12, 04:04 PM
[COLOR="#008000"]وعليكم السلام ورحمة الله وبركاته
تفضل اخي ارفقتلك مثال كامل وجاهز عن برنامج notepad
وهو يفتح ملفات التيكست فقط
ما عليك الا ان تضيف امتداد الورد بجانب امتداد التيكست
وبالتوفيق ان شاء الله
ملاحظة :- البرنامج سورس كود وهو ليس لي لكنه من المنتدى القديم
ربي يحفظك[/COLOR]
تفضل اخي ارفقتلك مثال كامل وجاهز عن برنامج notepad
وهو يفتح ملفات التيكست فقط
ما عليك الا ان تضيف امتداد الورد بجانب امتداد التيكست
وبالتوفيق ان شاء الله
ملاحظة :- البرنامج سورس كود وهو ليس لي لكنه من المنتدى القديم
ربي يحفظك[/COLOR]
04-12-12, 04:12 PM
إذا كان ملف الوورد بالأمتداد RTF يمكن فتحة بكل سهولة إن شاء الله
كود :
RichTextBox1.LoadFile(FileName)04-12-12, 10:18 PM
الف شكر اخواني جزاكم الله خير
لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)
إذا امكن التعديل على المثال
لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)
إذا امكن التعديل على المثال
05-12-12, 04:25 PM
aftfm كتب :الف شكر اخواني جزاكم الله خير
لكن عند وضع امتداد ملف الوورد ظهر النص بترميز مخالف أي نص غير صحيح
اظاهر بسبب الترميز (رموز مختلفة)
إذا امكن التعديل على المثال
[COLOR="#006400"]السلام عليكم ورحمة الله وبركاته
تفضل اخوية العزيز المثال بالمرفقات
وبالتوفيق ان شاء الله
ربي يحفظك ويسهلك كل الخير[/COLOR]
03-05-20, 02:14 AM
لو تسمحوا إعادة رفع الملف
03-05-20, 05:41 AM
السلام عليكم و رحمة الله و بركاته
اضف المرجع Microsoft.Office.Interop.Word الى مشروعك
ثم في اعلى الفروم استورد Microsoft.Office.Interop
استخدم الكود التالي لفتح الملفات
اضف المرجع 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