طرق كتابة الشعر في Word

بسم الله الرحمن الرحيم

طرق كتابة الشعر في word

الطريقة الأولى :
ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم SHIFT + ENTER لكتابة بيت جديد ، بعد ذلك حدد الكل ثم ضبط كلي من تنسيق ، ثم غير عرض الأعمدة لتتناسب مع بعضها.

الطريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول .
2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " .
3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية .
4- اضغط موافق مرتين وتمتع بكتابة القصيدة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة .

الطريقة الثالثة :
إضافة إلى الطريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " :
1- من قائمة " أدوات " Tools اختر " ماكرو Macro " .
2- اختر تسجيل ماكرو جديد باسم Adjustmenet ثم سجل التسجيل Create.
3- اختر ماكرو مرة أخرى من قائمة أدوات ثم اختر" وحدات ماكرو" وحدد اسم الماكرو Adjustmenet ثم اختر " تحرير " .
4- يفتح عندك الفيجيوال بيسك Visual Basic ، ألصق نص الماكرو التالي في الـ Sub :
Selection.SelectColumn
Selection.ParagraphFormat.Alignment = wdAlignParagraphJustjfy
Selection.Cells.SetHeight RowHeight:=8+
Selection.Font.SizeBi, HeightRule:=wdRowHeightExactlyWith Selection.Rows
.TableDirection = wdTableDirectionRtl
.Alignment = wdAlignRowRight
.AllowBreakAcrossPages = True
.SetLeftIndent LeftIndent:=CentimetersToPoints(0),
RulerStyle:=wdAdjustN one
End With
Selection.Rows.SpaceBetweenColumns = CentimetersToPoints(0.38)
Selection.MoveLeft Unit:=wdCharacter, 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 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر.
هذا وبالله التوفيق Smile