كيف يتم تنسيق الأشعار في الورد

لا والله ليس عندى هذا الماكرو

ولكن أعتقد انك ممكن تستخدم Table مكون من عمودين وعدد الصفوف يساوى عدد أبيات القصيدة وتستخدم محاذاة لليمين فى الشطر الأول ولليسار أو اليمين كما تحب فى الشطر الثانى

أخي الكريم

مايكروسوفت موفرة ماكرو يقوم بهذا العمل ، و أنا مجربنه من زمان ، بس للأسف ما أدري وين حطيته :( ... على العموم روح على موقع مايروسوفت و دور عليه :P

بصراحة رحت موقع ميكروسوفت ....

لكن تهت و ما طلعت بنتيجه :(

وجدت عندي المشاركة التالية من نادي الخبير و كاتبها نادي المشرف العام

و لم أجربها

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

الطريقة الأولى :

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

شكرا أخي محمد ...

لكن الطريقة الثالثة ما اشتغلت عندي ربما إن الكود مكتوب لغير الأكس بي

السلام عليكم

على هذا الرابط ستجدون طريقه سهله وسريعه لتنسيق الشعر ...تمنياتي بالتوفيق

http://www.rayaheen.net/software/poetry4doc.htm

لعل في هذا الموقع ماتريد

http://www.dorar.net/htmls/files.asp

hنزل لأسفل الصفحة تحت البرامج ثم اختر هذا الملف

saudmac2000-Xp الإصدار 30