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

[mido_kholy]

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

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

فتح برنامج فيجوال بيسك واختيار 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) النمط المائل.

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

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

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

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

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

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

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

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

[boubekeur]

مشكور على الدرس
وبارك الله فيك

[veto_44]

بارك الله فيك اخي ميدو درس جميل من
مبرمج رائع ومصمم محترف دمت بخير.

[waleedwanees]

شكرااااااااااااااااااااااااااا جدا علي هذا الشرح
بس انا مش عندي في الادوات Microsoft word 10.0 object library
ياريت لو هذه الاداه عندك ياريت ترفقها لي او ترفعها

[Ahmed_ghanam]

شكرا مستر ميدو

[YEHEYA]

Thank You Very Much
Good Luck