بسم الله الرحمن الرحيم
الإخوة الكرام ,,,
كيف يمكن قراءة Word أو Html من داخل RichTextBox مع الفيجوال بيسك 2005 ؟
حاولت هذه الطريقة ولم تنجح
Dim m As New StreamReader(File.OpenRead("C:\1.doc"))
Do Until m.Peek = -1
rchScript.Text &= m.ReadLine() & vbCrLf
Loop
أين الخلل ؟ ؟
مثلا لقراءة نص من RichTextBoxالى ملف word:
Me.RichTextBox1.SaveFile("c:\file.doc", RichTextBoxStreamType.RichNoOleObjs)كما قال أرشميدس ... "وجدتها..وجدتها" : )
Dim path As String
path = "C:\mywordfile.doc"
Dim wordapp As New Word.ApplicationClass
Dim file As Object = path
Dim nullobj As Object = System.Reflection.Missing.Value
Dim doc As Word.Document
doc = wordapp.Documents.Open(file, nullobj, True, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj, nullobj)
doc.ActiveWindow.Selection.WholeStory()
doc.ActiveWindow.Selection.Copy()
Dim data As IDataObject = Clipboard.GetDataObject
rchScript.Text = data.GetData(DataFormats.Text).ToString()
doc.Close()
بيعلملي على الكلمة دي Word.ApplicationClass
ويقولي انها مش معرفة
Mohamed Ali Salim
0.1..0...4....7.....6......2.......7........4.........8