منتديات المبرمجون الاقباط
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

إدراج نص في Microsoft Word عن طريق الفيجوال بيسك

اذهب الى الأسفل

إدراج نص في Microsoft Word عن طريق الفيجوال بيسك Empty إدراج نص في Microsoft Word عن طريق الفيجوال بيسك

مُساهمة من طرف Coptic_Programmer الجمعة يوليو 03, 2009 9:24 am

سنقوم في هذا الدرس شرح بإدراج نص في الورد واحداث بعض التعديلات عليه من خلال برنامج فيجوال بيسك , الطريقة سهلة للغاية ما عليك سوى اتباع الخطوات التالية :

فتح برنامج فيجوال بيسك واختيار Standard Exe .
احضار المكتبة الخاصة بتطبيق مايكروسوفت ورد : من قائمة project ß نختار reference ß ونبحث عن Microsoft word 10.0 object library ß ثم نضغط OK.
سنضيف Command لشاشة البرنامج وقمت بتسميته Cmdok ستتم هنا عمليات البرمجة الرئيسية وبداية لا تحتاج الى أكثر من ذلك اذا كان برنامجك بسيط ويعمل على عملية ادراج النصوص فقط.
في القسم العام للبرنامج سنعرف المتغير wrdapp من نوع Word.Application عن طريق الأمر التالي :
Dim wrdapp As Word.Application

وذلك للاعلان عن استخدام تطبيق مايكروسوفت ورد.

سنقوم بإضافة الكود التالي عن الحدث Clikc للزر الذي قمنا بإنشائه سابقا ً :
Private Sub Cmdok_Click()

Set wrdapp = New Word.Application
With wrdapp
.********s.Add
.Active********.Content.Font.Bold = True
.Active********.Paragraphs.Alignment = wdAlignParagraphLeft
.Active********.Content.Font.Color = wdColorRose
.Active********.Content.Font.Italic = True
.Active********.Content.Font.Name = "Monotype Corsiva"
.Active********.Content.Font.Size = 22
.Active********.Content.Text = "Hi This How Insert Text In Microsoft Word" & Chr(13)
.Active********.Content.InsertAfter Text:="GOOD BYE"
.Visible = True
End With
End Sub



شرح الكود

· الجملة رقم (1) وهي مهمة في عملية اسناد مرجع مايكروسوفت ورد للمتغير wrdapp وتم استخدام new ليقوم بفتح برنامج مايكروسوفت ورد.

· الجملة رقم (2) وهي جملة With الشائعة الإستخدام لتسهيل عمليات البرمجة وعدم تكرار كتابة wrdapp.

· الجملة رقم (3) لإضافة مستند جديد لبرنامج مايكروسوفت ورد .

· الجمل من (4) وحتى (5) وهي خصائص النص المراد ادراجة, وتستخدم Active******** لاحداث التغيرات المطلوبة على المستند الفعال حالياً.

· جملة (4) لإعطاء النمط العريض للنص المدرج .

· جملة (5) لجعل محاذاة النص جهة اليسار.

· جملة (6) تغير لون الخط للون الوردي.

· جملة (7) النمط المائل.

· جملة (Cool اسناد نوع الخط .

· جملة (9) حجم الخط . م

· ملاحظة : للإحتفاظ بنفس الاعدادت (نوع الخط , حجمه , لونه , نمطه ) الأصلية للنص يتم الإستغناء عن واحد او كل الخصائص السابقة .

· الجملة رقم (10) وهي الجملة التي يتم من خلالها إدراج النص المطلوب عن طريق الخاصية text التابعة لمحتوى المستند. وتسند للخاصية text متغير أو قيمة من نوع string.

· الجملة رقم (11) ادراج نص جديد ويلاحظ هنا استخدام الخاصية InsertAfter عوضا عن text وتم ذلك لإعلام البرنامج بالإحتفاظ بالجملة السابقة وادراج الجملة الجديدة بعدها .

· الجملة (12) لاظهار مايكروسوفت ورد ولن تتم رؤية عملية الادراج من غير هذة الجملة .

· الجملة (13) اغلاق الجملة with.

أتمنى أن يكون الدرس مفيد وسهل وواضح للجميع

Coptic_Programmer
مشرف برامج
مشرف برامج

المساهمات : 43
تاريخ التسجيل : 29/10/2008

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة

- مواضيع مماثلة

 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى