السلام عليكم
أريد عرض ملف وورد بامتداد doc وليس rtf في text box
وجزاكم الله خيرا
أريد عرض ملف وورد في textbox
مغلق
:o
تم حذف اى مرفقات تحوى تلميحات سياسية
تم تعديل هذه المشاركة بواسطة طارق إبراهيم في 3 مارس 2006 في 07:31
للرفع
باستخدام Textbox العادية لن تتمكن من عرض الملف بصورتة الأصلية (حجم الخط , لونه , الصور والإضافات في الملف ....)
كود كالآتي قد يعطيك محتوى الملف لكن قد تحتاج لتعديل في الكود مع ملف doc اكثر تعقيداً .
على إفتراض وجود ملف word.doc في c ...
Private Sub Command1_Click()
Dim wrd As Object
Dim Doc As Object
Set wrd = CreateObject("Word.Application")
Set Doc = wrd.Documents.Open("c:\Word.Doc", False, False, False)
Text1.Text = Doc.Content.Text
End Sub"First they ignore you, then they laugh at you, then they attack you, then you win"
===
اقتباسحُكَّامُـنَا إِنْ تَصَـدّوا لِلْحِمَــى اقْتَحَمُـوا ***** وَإِنْ تَصَدَّى لَـهُ المُسْتَعْمِـرُ انْسَحَبُـوا
هُمْ يَفْرشـُونَ لِجَيْـشِ الغَــزْوِ أَعْيُنَـهُـمْ ***** وَيَدَّعُــونَ وُثُـوبَـاً قَـبْـلَ أَنْ يَثِـبُــوا
الحَاكِمُـونَ و«وَاشُنْـطُـنْ» حُكُومَتُـهُـمْ ***** وَاللامِعُــونَ وَمَـا شَعَّـوا وَلا غَرَبُــوا
القَاتِلُـــونَ نُبُــوغَ الشَّـعْــبِ تَرْضِـيَـــةً ***** لِلْمُعْتَدِيــنَ وَمَـا أَجْـدَتْـهُـمُ الـقُــرَبُ
لَهُمْ شُمُـوخُ «المُثَنَّـى» ظَاهِـرَاً وَلَهُـمْ ***** هَـوَىً إِلَـى بَابَـك الخَرْمِـيّ يُنْتَسَـبُ
البردوني "أبو تمام وعروبة اليوم" 1971
===
اقتباسعبيد الهوى يحكمون البـلاد ***** ويحكمهــم كلّهـــم درهــــــمو تقتـادهـم شهـوة لا تنــام ***** وهـــم فـي جـهالتهــم نــــوّم
ففــي كـــلّ ناحيــة ظـالـــم ***** غبــــــيّ يسـلـّطــــه أظلـــم
أيا من شبعتم على جوعــنا ***** وجـــوع بنينـا ألـم تتخمـــوا ؟
ألم تفهموا غضبة الكادحين ***** على الظلـم ؟ لا بدّ أن تفهموا
البردوني "نحن و الحاكمون "
هذا الموضوع مغلق.