عمروالندى
21-08-2002, 03:16 PM
ثلاث طرق لكتابة الشعر في برنامج الوورد الطريقة الأولى : ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم SHIFT + ENTER لكتابة بيت جديد ، بعد ذلك حدد الكل ثم ضبط كلي من تنسيق ، ثم غير عرض الأعمدة لتتناسب مع بعضها.
الطريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول . 2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " . 3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية . 4- اضغط موافق مرتين وتمتع بكتابة القصيدة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة .
الطريقة الثالثة : إضافة إلى الطريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " : 1- من قائمة " أدوات " Tools اختر " ماكرو Macro " . 2- اختر تسجيل ماكرو جديد باسم Adjustmenet ثم سجل التسجيل Create. 3- اختر ماكرو مرة أخرى من قائمة أدوات ثم اختر" وحدات ماكرو" وحدد اسم الماكرو Adjustmenet ثم اختر " تحرير " . 4- يفتح عندك الفيجيوال بيسك Visual Basic ، ألصق نص الماكرو التالي في الـ Sub :
Selection.SelectColumn Selection. ParagraphFormat .Alignment = wdAlignParagrap hJustjfy Selection.Cells.SetHeight RowHeight:=8+ Selection.Font.SizeBi, HeightRule:=wdR owHeightExactly With Selection.Rows .TableDirection = wdTableDirectio nRtl .Alignment = wdAlignRowRight
. AllowBreakAcros sPages = True .SetLeftIndent LeftIndent:=Cen timetersToPoint s(0), RulerStyle:=wdA djustN one End With Selection.Rows. SpaceBetweenCol umns = CentimetersToPo ints(0.38) Selection.MoveLeft Unit:=wdCharact er, Count:=l For I = 1 To 24 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=Chr(ll) Selection.MoveDown Unit:=wdLine, Count:=l Next I End Sub
ثم أغلق مايكروسوفت فيجيوال بيسك Visual Basic . 5- اتبع المسار : أدوات / تخصيص / اختر لسان التبويب " الأوامر " / اختر من الفئات " وحدات الماكرو " . 6- اسحب الماكرو Normal.NewMacro.Adjustment إلى اشرطة الأدوات . 7- لتنسيق الشعر بهذه الطريقة افتح ملف الشعر المراد ضبطه ثم ضع مؤشر الماوس في أي مكان داخل العمود المطلوب تنسيقه ثم اضغط على المفتاح المسمى Normal.NewMacro.Adjustment فتلاحظ بدء تنسيق الجدول آليا . يضبط الماكرو أبعاد الجدول بما يتناسب مع حجم الخط ، ويجب تعديل الرقم 24 إلى 1000 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر .
نقلا عن احد المنتديات
الطريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول . 2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " . 3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية . 4- اضغط موافق مرتين وتمتع بكتابة القصيدة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة .
الطريقة الثالثة : إضافة إلى الطريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " : 1- من قائمة " أدوات " Tools اختر " ماكرو Macro " . 2- اختر تسجيل ماكرو جديد باسم Adjustmenet ثم سجل التسجيل Create. 3- اختر ماكرو مرة أخرى من قائمة أدوات ثم اختر" وحدات ماكرو" وحدد اسم الماكرو Adjustmenet ثم اختر " تحرير " . 4- يفتح عندك الفيجيوال بيسك Visual Basic ، ألصق نص الماكرو التالي في الـ Sub :
Selection.SelectColumn Selection. ParagraphFormat .Alignment = wdAlignParagrap hJustjfy Selection.Cells.SetHeight RowHeight:=8+ Selection.Font.SizeBi, HeightRule:=wdR owHeightExactly With Selection.Rows .TableDirection = wdTableDirectio nRtl .Alignment = wdAlignRowRight
. AllowBreakAcros sPages = True .SetLeftIndent LeftIndent:=Cen timetersToPoint s(0), RulerStyle:=wdA djustN one End With Selection.Rows. SpaceBetweenCol umns = CentimetersToPo ints(0.38) Selection.MoveLeft Unit:=wdCharact er, Count:=l For I = 1 To 24 Selection.EndKey Unit:=wdLine Selection.TypeText Text:=Chr(ll) Selection.MoveDown Unit:=wdLine, Count:=l Next I End Sub
ثم أغلق مايكروسوفت فيجيوال بيسك Visual Basic . 5- اتبع المسار : أدوات / تخصيص / اختر لسان التبويب " الأوامر " / اختر من الفئات " وحدات الماكرو " . 6- اسحب الماكرو Normal.NewMacro.Adjustment إلى اشرطة الأدوات . 7- لتنسيق الشعر بهذه الطريقة افتح ملف الشعر المراد ضبطه ثم ضع مؤشر الماوس في أي مكان داخل العمود المطلوب تنسيقه ثم اضغط على المفتاح المسمى Normal.NewMacro.Adjustment فتلاحظ بدء تنسيق الجدول آليا . يضبط الماكرو أبعاد الجدول بما يتناسب مع حجم الخط ، ويجب تعديل الرقم 24 إلى 1000 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر .
نقلا عن احد المنتديات