tabel

	يحتوي وورد على أدوات سهلة لإنشاء الجداول، لكننا سنوضح في هذا التطبيق، كيفية كتابة مجموعة من التعليمات البرمجية لإنشاء جدول أنيق، في كل مرة تنقر فيها بالماوس على اسم الماكرو الجديد الذي سنضعه على شريط الأدوات، وسيكون الإسم الجديد هو "جداولنا" وتستطيع اختيار أي اسم آخر مناسب، والهدف من كتابة هذا الماكرو، هو توفير أداة أكثر سهولة، من تلك التي يوفرها وورد لإنشاء الجداول. سيؤدي النقر فوق زر "جداولنا" الموجود على شريط الأدوات كما في (الشكل1) إلى ظهور إطار يحمل للمستخدم سؤالاً عن عدد الصفوف المطلوبة في الجدول الجديد، وعندما يكتب المستخدم عدد الصفوف، يظهر سؤال آخر يسأل عن عدد الأعمدة المطلوبة في الجدول، ويكون على المستخدم كتابة العدد المطلوب. وينشى برنامجنا بناء على تلك المعلومات، جدولاً جديداً في موقع المشيرة في الصفحة.
	الشكل(1)
	ويضيف الماكرو إلى الجدول الجديد ألواناً أنيقة تميز الصف الأول منه بلون مختلف عن باقي ألوان صفوف الجدول. أبدا بالنقر فوق قائمة "أدوات" ومنها إلى الأمر "ماكرو" الذي يقودنا إلى قائمة فرعية نختار منها "وحدات ماكرو". اكتب كلمة "جداولنا" داخل شريط الإسم ثم انقر فوق مفتاح "إنشاء"، لينقلنا وورد إلى محرر الماكرو الذي سنكتب فيه التعليمات البرمجية ونقوم بتصحيحها أو تعديلها. لاحظ أن برنامجنا الجديد يبدأ بكلمة Sub يليه العنوان الذي اخترناه للماكرو، وينتهي بكلمتي End Sub وتأتي البلاغات البرمجية التي نكتبها بين البداية والنهاية. انسخ التعليمات التالية، بين البداية (جداولناSub) والنهاية (End Sub) ثم نفذ الجدول لتجربته، بحيث يكون شكل التعليمات كما هو مكتوب في مربع النص التالي:
	Sub جداولنا() Dim iRows As Integer, iColumns As Integer Dim myTable iRows= InputBox("عدد صفوف الجدول؟") iColumns= InputBox("عدد أعمدة الجدول؟") If iRows > 1 And iColumns > 1 Then '2×2 tabel required Set myTable = ActiveDocument.Tables.Add(Selection.Range,iRows,iColumns) myTable.AutoFormat Format:=wdTableFormatColorful2 Else MsgBox"يجب أن يحتوي الجدول على ما لا يقل عن صفين وعمودين" End If End Sub حتى تظهر الشفرة بشكلها الصحيح فم بتغير جهة الكتابة من اليمن إلى اليساربلوحة المفاتيح وذلك بالظغط على ctrl+shift من الجهة اليسرى وذلك بعد أن تقوم بالنقر ضمن مربع النص