شرح كيفية تحويل النص الموجود فى TextBox الى مستند Word
صفحة 1 من اصل 1 • شاطر
شرح كيفية تحويل النص الموجود فى TextBox الى مستند Word
بسم الله الرحمن الرحيم
السادة الكرام أهلا بكم ....اليوم سوف نقوم بشرح كيفية اى نصوص موجود فى مربع النص textbox الى ملف أو مستند Word ....
الخطوة الاولى : قم فتح مشروع جديد فى الفجوال بيسك .....ثم انشىء نموذج وضع عليه عدد 1 مربع نص و عدد زر امر واداة CommonDialog .....ثم قم بتنثيق النموذج كما فى الشكل التالى :
الخطوة الثانية : قم بإدراج المكتبة Microsoft Word 9.0 Object Library الى المشروع من خلال menu ثم References ثم من المربع الحوارى يتم اختيار المكتبة ثم بعد ذلك أضغط ok
الخطوة الثالثة : قم بنسخ الكود التالى و ضعه فى زر الامر :
اما شرح الكود فهو كما يلى :
السطر الاول و الثانى : إنشاء تطبيق و مستند الورد
السطر الثالث و الرابع : تعيين مثيل جديد للكائن WordAppl و الكائن WordDoc
السطر الخامس :هو ادراج النصوص الموجودة فى txetbox الى الكائن WordAppl
السطر السادس و السابع : اظهار المربع الحوارى save لحفظ ووضع اسم للملف الورد
أما الاسطر الاخير هى لاغلاق الكائنات WordAppl و WordDoc
المشروع فى المرفقات
السادة الكرام أهلا بكم ....اليوم سوف نقوم بشرح كيفية اى نصوص موجود فى مربع النص textbox الى ملف أو مستند Word ....
الخطوة الاولى : قم فتح مشروع جديد فى الفجوال بيسك .....ثم انشىء نموذج وضع عليه عدد 1 مربع نص و عدد زر امر واداة CommonDialog .....ثم قم بتنثيق النموذج كما فى الشكل التالى :
الخطوة الثانية : قم بإدراج المكتبة Microsoft Word 9.0 Object Library الى المشروع من خلال menu ثم References ثم من المربع الحوارى يتم اختيار المكتبة ثم بعد ذلك أضغط ok
الخطوة الثالثة : قم بنسخ الكود التالى و ضعه فى زر الامر :
- الكود:
Dim WordAppl As Word.Application
Dim WordDoc As Word.Document
Set WordAppl = New Word.Application
Set WordDoc = WordAppl.Documents.Add(DocumentType:=wdNewBlankDocument)
WordAppl.Selection.TypeText Text1.Text
C.ShowSave
WordDoc.SaveAs fileName:=C.fileName
WordDoc.Close False
WordAppl.Quit False
Set WordDoc = Nothing
Set WordAppl = Nothing
اما شرح الكود فهو كما يلى :
السطر الاول و الثانى : إنشاء تطبيق و مستند الورد
السطر الثالث و الرابع : تعيين مثيل جديد للكائن WordAppl و الكائن WordDoc
السطر الخامس :هو ادراج النصوص الموجودة فى txetbox الى الكائن WordAppl
السطر السادس و السابع : اظهار المربع الحوارى save لحفظ ووضع اسم للملف الورد
أما الاسطر الاخير هى لاغلاق الكائنات WordAppl و WordDoc
المشروع فى المرفقات
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
رد: شرح كيفية تحويل النص الموجود فى TextBox الى مستند Word
المرفقات هنا
- المرفقات
NEXT- الادارة
- تاريخ التسجيل : 18/02/2011
المساهمات : 446
النقاط : 200660
التقيم : 28
الدولة :
الجنس :
| |
صفحة 1 من اصل 1
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى
اليوم في 7:09 pm من طرف moslema_r
» شركة تنظيف فرشات بالرياض
الثلاثاء مارس 26, 2024 6:26 pm من طرف moslema_r
» شركة تنظيف استراحات بالرياض
الأحد مارس 24, 2024 10:49 pm من طرف moslema_r
» كشف تسربات المياه في جدة
السبت مارس 23, 2024 7:23 pm من طرف gmalnagy
» خدمات كشف تسربات المياه بخصم 25% - اتصل الان
السبت مارس 23, 2024 7:22 pm من طرف gmalnagy
» شركة تنظيف ثريات بالرياض
الخميس مارس 21, 2024 7:23 pm من طرف moslema_r
» كهربائي منازل بالرياض
الأحد مارس 17, 2024 1:52 pm من طرف رانيا حماد
» افضل شركة نقل عفش بالرياض نقل باكستاني 40% خصم | موقع الانوار
الأحد مارس 17, 2024 1:25 pm من طرف رانيا حماد
» افضل معلم جبس بالرياض تركيب جبس بورد بالرياض 20% خصم اتصل الآن
الأحد مارس 17, 2024 1:09 pm من طرف رانيا حماد
» شراء اثاث مستعمل بالكويت بخصم 30%
الأحد مارس 17, 2024 12:54 pm من طرف رانيا حماد