[من يساعدني في الوورد]
ـ[العوضي]ــــــــ[10 - 06 - 04, 05:12 م]ـ
السلام عليكم أخوتي الأفاضل
بارك الله فيكم أريد معرفة كيفية كتابة الشعر بطريقة كرتبة في الوورد.
أخوكم ومحبكم في الله
ـ[أبوعمرو المصري]ــــــــ[10 - 06 - 04, 06:06 م]ـ
هذا الملف فيه طريقة جيدة لتنسيق الشعر
وهذه وصلة لتحميل وظائف مهمة على الوورد وضعها بعض إخواننا جزاه الله خيرا في هذا المنتدى:
رابط الموضوع:
http://www.ahlalhdeeth.com/vb/showthread.php?threadid=18788
رابط التحميل:
http://81.23.251.39/files/qaleb.zip
ـ[العوضي]ــــــــ[11 - 06 - 04, 07:05 م]ـ
بارك الله فيك أخي الكريم أبو عمر على الرد , ولكن أخي الفاضل افتح الملفات وهي خالية ليس بها شيء فهل لي أن أعرف لماذا.
ـ[أبوعمرو المصري]ــــــــ[11 - 06 - 04, 07:22 م]ـ
أخي الكريم الملفات تعمل بصورة جيدة وقد جربت إنزالها فنزلت كاملة فلعل عندك شيئا في الجهاز ومنسق الشعر الذي وضعته لك عبارة عن صفحة انترنت إكسبلورار تلصق فيها الشعر المراد تنسيقه ثم تنسقه بإحدى الطرق الموجودة في الملف ثم تضغط تنسيق سيخبرك بأنه تم نسخ الشعر وتنسيقه ثم تذهب إلى وورد وتلصقه فيه.
ثم هذا رابط موضوع في أحد المنتديات لعله يفيدك
http://www.arabteam2000-forum.com/index.php?showtopic=39572
وهذا هو الموضوع:
طريقة تنسيق الشعر في الوورد
الطريقة الأولى:
ادرج جدول من ثلاثة حقول، اكتب الصدر في الحقل الأول والعجز في الثالث، ثم 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 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر.
ـ[العوضي]ــــــــ[12 - 06 - 04, 08:11 م]ـ
جزاك الله خيرا أخي الكريم , وفقك الله وسدد خطاك
ـ[شتا العربي]ــــــــ[15 - 11 - 07, 10:53 ص]ـ
¥