linnou
10-19-2013, بتوقيت غرينيتش 08:01 PM
موضوع مقدم من منتديات ديزاد
منتديات ديزاد باتنة (http://www.dzbatna.com/vb)
السلام عليكم .. كيفكم ..
المهم .. قبل كم يوم سألني صديق كيف يكتب شعر بالوورد ..
فصراحه أنا ما كان عندي خلفية .. عن الموضوع ..
فرجعت لكتاب قديم عندي .. فلقيت فيه أكثر (http://www.dzbatna.com/vb/t32824/) من شرح طريقة طريقة لكتابه الشعر ..
كانت ثلاث طرق .. وهي كالتالي ..
الشرح طريقة طريقة الأولى :
ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم SHIFT + ENTER لكتابة (http://www.dzbatna.com/vb/t32824/) بيت جديد ، بعد ذلك حدد الكل ثم ضبط كلي من تنسيق ، ثم غير عرض الأعمدة لتتناسب مع بعضها.
[line]
الشرح طريقة طريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول .
2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " .
3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية .
4- اضغط موافق مرتين وتمتع بكتابة القصيدة رائعة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة رائعة .
[line]
الشرح طريقة طريقة الثالثة :
إضافة إلى الشرح طريقة طريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " :
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.Type**** ****:=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.dzbatna.com/vb)
https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com/vb)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com/vb)©
منتديات ديزاد باتنة (http://www.dzbatna.com/vb)
السلام عليكم .. كيفكم ..
المهم .. قبل كم يوم سألني صديق كيف يكتب شعر بالوورد ..
فصراحه أنا ما كان عندي خلفية .. عن الموضوع ..
فرجعت لكتاب قديم عندي .. فلقيت فيه أكثر (http://www.dzbatna.com/vb/t32824/) من شرح طريقة طريقة لكتابه الشعر ..
كانت ثلاث طرق .. وهي كالتالي ..
الشرح طريقة طريقة الأولى :
ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم SHIFT + ENTER لكتابة (http://www.dzbatna.com/vb/t32824/) بيت جديد ، بعد ذلك حدد الكل ثم ضبط كلي من تنسيق ، ثم غير عرض الأعمدة لتتناسب مع بعضها.
[line]
الشرح طريقة طريقة الثانية :
1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول .
2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " .
3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية .
4- اضغط موافق مرتين وتمتع بكتابة القصيدة رائعة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة رائعة .
[line]
الشرح طريقة طريقة الثالثة :
إضافة إلى الشرح طريقة طريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " :
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.Type**** ****:=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.dzbatna.com/vb)
https://fbcdn-sphotos-d-a.akamaihd.net/hphotos-ak-ash4/482113_236967293114455_1193518507_n.png (http://www.dzbatna.com/vb)
©المشاركات المنشورة تعبر عن وجهة نظر صاحبها فقط، ولا تُعبّر بأي شكل من الأشكال عن وجهة نظر إدارة المنتدى (http://www.dzbatna.com/vb)©
