التعلوم كيف كتابه الشعر

السلام عليكم ورحمة الله وبركاته

ان شاء الله يعجبكم الموضوع هذا

لطريقة الأولى :
ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم 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 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر .

يسلموووو مووووووو مووووووووو

[عزيزي الزائر يتوجب عليك التسجيل للمشاهدة الرابط للتسجيل اضغط هنا]