أبي حل لكتابة الشعر بطريقة مرتبة في الوورد

[الوطواط]

شباب اعاني من مشكلة في كتابة الشعر في برنامج الوورد حيث أنني لا أستطيع ضبط الأبيات بشكل متناسق كما نراه في كتب الشعر حيث انه يظهر لي بيت أطول من البيت ألآخر وهكذا فارجوا أن تدلوني على طريقة أستطيع بها كتابة الشعر بطريقة مرتبة ومنسقة
ولكم وافر الشكر

[أبو أكرم]

جرب هذي الوصلة http://www.geocities.com/alalwi069/formatforword.htm

أكتب النصف الأول من البيت ثم إكتب علامة = ثم الشطر الثاني من البيت

وهكذا بعد ما تخلص إنقر على نفذ

[سفيرالابداع]

جرب هذي الوصلة http://www.geocities.com/alalwi069/formatforword.htm



البرنامج اللي طرحته جميل حقيقة
ولكن يظهر لي رمز غريب في بداية الشطر الثاني من كل بيت
اعتقد ان المشكلة من جهازي


على كل حال
احب ابشرك اخوي بقرب طرح خدمتين في شبكة المحروقي
الاولى: نسخة مماثلة جدا لهذا البرنامج حيث يتم مد الاشطر عن طريق خيار "JUSTIFY"

الثانية: برنامج يقوم باضافة شرطات للاشطر حتى تتساوى في الطول


http://almahrouqi.net

[عبدالحكيم]

أخي تفضل هناك عدة طرق لذلك:

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

الطريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول .

2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " .

3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية .

4- اضغط موافق مرتين وتمتع بكتابة القصيدة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة .

الطريقة الثالثة :
إضافة إلى الطريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " :

1- من قائمة " أدوات " Tools اختر " ماكرو Macro " .

2- اختر تسجيل ماكرو جديد باسم Adjustmene t ثم سجل التسجيل Create.

3- اختر ماكرو مرة أخرى من قائمة أدوات ثم اختر" وحدات ماكرو" وحدد اسم الماكرو Adjustmene t ثم اختر " تحرير " .

4- يفتح عندك الفيجيوال بيسك Visual Basic ، ألصق نص الماكرو التالي في الـ Sub :
Selection.SelectColu mn

Selection.ParagraphF ormat.Alignment = wdAlignPar agraphJust jfy

Selection.Cells.SetHeight RowHeight: =8+

Selection.Font.SizeBi, HeightRule :=wdRowHei ghtExactly With Selection.Rows

.TableDirec tion = wdTableDir ectionRtl

.Alignment = wdAlignRow Right

.AllowBreak AcrossPage s = True

.SetLeftInd ent LeftIndent :=Centimet ersToPoint s(0),

RulerStyle :=wdAdjust N one

End With

Selection.Rows.SpaceBetwe enColumns = Centimeter sToPoints( 0.38)

Selection.MoveLeft Unit:=wdCh aracter, Count:=l

For I = 1 To 24

Selection.EndKey Unit:=wdLi ne

Selection.TypeText Text:=Chr( ll)

Selection.MoveDown Unit:=wdLi ne, Count:=l

Next I

End Sub


ثم أغلق مايكروسوفت فيجيوال بيسك Visual Basic .

5- اتبع المسار : أدوات / تخصيص / اختر لسان التبويب " الأوامر " / اختر من الفئات " وحدات الماكرو " .

6- اسحب الماكرو Normal.NewMacro.Adjustment إلى اشرطة الأدوات .

7- لتنسيق الشعر بهذه الطريقة افتح ملف الشعر المراد ضبطه ثم ضع مؤشر الماوس في أي مكان داخل العمود المطلوب تنسيقه ثم اضغط على المفتاح المسمى Normal.NewMacro.Adjustment فتلاحظ بدء تنسيق الجدول آليا .

يضبط الماكرو أبعاد الجدول بما يتناسب مع حجم الخط ، ويجب تعديل الرقم 24 إلى 1000 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر .

------------ منققققققققققققووووووووووو ووولللللللللل -------------------

[من ارض البساتين]

السلام عليكم
الحل بسيط اخي الوطواط ( اذهب الى تنسيق ثم اختر من القائمة أعمده )