اذهب الي المحتوي
أوفيسنا

تنسيق القصائد + التشكيل


alhajri

الردود الموصى بها

السلام عليكم

كنت استخدم الاوفيس 2000

وكان هناك ماكرو مساعد اسمه AraAddin انزلته من موقع مايكروسوفت

وهو خاص لتنسيق القصائد اضافة الى احتواءه على حركات السكون والفتح والظم

...الخ ،، ويستخدم مع الوورد 2000 فقط

وبعد استخدام الوورد اكس بي العربي طبعا لم اجده او ربما موجود ولا اعرف ما اسمه

او عن طريقة استخدامه هل هي مثل ذلك الماكور السابق ام تختلف كليا .

هل بالامكان ارشادي الى مكان ذلك الماكرو في الوورد اكس بي

وشكرا لكم

:lol:

رابط هذا التعليق
شارك

إنزال الماكرو الذي يقوم بتنسيق القصائد في الوورد من هنا

قم بفتح الماكرو بعد انزاله من الرابط السابق وبعد ذلك سوف يسألك اين تريد حفظ مسار الماكرو ؟

في حالة اوفيس 2002 اختار المسار التالي:

D:\Program Files\Microsoft Office\Office10\Startup

هذا لو كان مسار الاوفيس على الدرايف D بالطبع لو كان مسار الاوفيس في القرص الصلب على الدرايف C فقم باستبدال ذلك بالمسار السابق ,,,,

بعد ذلك عندما تقوم بفتح اي ملف وورد ستجد الماكرو ان شاء الله

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

شكرا لك اخي الكريم

وجزاك الله خير دنيا واخره

وانا فكرته تطور الوورد الاكس بي وبيكون ذلك الماكرو مضمن ضمن ادوات الوورد

لكن الا حظ فيه بعد الضغط على زر تنسيق القصيده لا يشمل التنسيق اول شطر من البيت الاول

لماذا هل لديك فكره عن السبب وتظهر رساله تقول ( Object variable or With block variable not set )

وش تعني هالرساله

تحياتي لك

رابط هذا التعليق
شارك

هناك حل آخر وهو ان تقوم بتغيير امتداد الملف الذي قمت بوضعه بالدليل السابق من

dot الى doc وبعد ذلك تضع الملف في المكان الذي تريد بحيث تجعله ايقونتك الافتراضيه التي تفتح منها الوورد في حالة تنسيق القصائد ... في هذه الحالة لن تظهر اليك الرسالة السابقه وكل شيء يكون تمام ان شاء الله :d

للعلم ... هناك ميزه رائعه في هذا الماكرو ايضاً وهو يمكنه تحويل الارقام الى حروف !!!!

رابط هذا التعليق
شارك

انا لايهمني ظهور تلك الرساله ولكن ما يهمني هو تخطيه للشطر الاول من البيت الاول

وعدم تنسيقه من ناحية الطول في الخليه فقط

عملت ما قلت وحولت امتداد الملف الى DOC فعلا لم تخرج رساله لكن خرج نيابة عنها

اطار يحيط بالملف على شكل برواز وهذا استيطع تجاوزه من قائمة الحدود وازالته ولكن المشكله

كما قلت في عدم تنسيق الشطر الاول من البيت الاول .

على فكره الماكرو لم انزله من الرابط الذي وضعته انت فقد كان لدي وهو لوورد2000 ورابطك

هو نفس التنسيق على ما اظن .

هل من حل لتنسيق الشطر الاول من البيت الاول دون تدخلي فيه مثل ما كان سابقا

وجزاك الله خير

اخوك الهاجري

رابط هذا التعليق
شارك

شكرا على مساعدتك

ولكنه لا ينسق الشطر الاول من اول بيت في القصيده لدي ولا اعلم اين السبب

استخدم الويندوز 98 والاوفيس اكس بي عربي

وعلى العموم لعل وعسى ان اجد حل اخر يساعدني في تخطي هذه المشكله

وجزاك الله اخير يا امير عاطف ( وبيض الله وجهك)

رابط هذا التعليق
شارك

هذا الموضوع منقول و أعتقد أن كاتبه اسمه أبو محمد الهذلي:

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

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

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

الطريقة الثانية :

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

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

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

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

الطريقة الثالثة :

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

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

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

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

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

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

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

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

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

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

code:--------------------------------------------------------------------------------

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 

--------------------------------------------------------------------------------

فجرب ما فيه ، ربما يفيد

رابط هذا التعليق
شارك

الله ينور عليك اخي محمد طاهر

هذ البريمج حصلت عليه من أحد الأصدقاء ... ربما يفيد ايضاً !!!!

وكل ما عليك من خلاله هو وضع القصيده الذي تريد تنسيقها بالوورد داخله وتفصل بين كل شطر والاخر بعلامة "=" (يساوي) وبعد ذلك اضغط على زر تنفيذ ستظهر لك رساله اول مره وافق عليها ثم تظهر لك رساله بنجاح العمليه بعد ذلك افتح مايكروسوفت وورد وقم بعمل لصق ما في الحافظه ستجد انه تم اللصق بتنسيق الشعر

البريمج تجده مع المرفقات حجمه 2.5 كيلو بايت .. يعني سوف يستغرق 966985568956224885جزء من الثانيه :lol:

format_for_word.zip

تم تعديل بواسطه امير عاطف
رابط هذا التعليق
شارك

اخي محمد والله اخر كرم الله يجزاك خير وان شاء الله ساجربها تباعا

واختار اسهلها .

اخي امير عاطف البرنامج رائع وهو على صفحة ويب والطريقة 100/100 الله يبارك فيك ويكثر من امثالك

لكم كل الشكر والتقدير

تم تعديل بواسطه alhajri
رابط هذا التعليق
شارك

  • 3 months later...

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

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

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

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

رابط هذا التعليق
شارك

  • 1 year later...

الشرح باختصار اضغط في المسطرة العليا في المكان الذي تريد أن يبدأ فيه شطري البيت وينتهي واضبط المسافة على حسب ما تريد

بعد ذلك عند كتاب البيت اضغط تاب ينتقل إلى الشطر الثاني وهكذا

رابط هذا التعليق
شارك

زائر
هذا الموضوع مغلق.
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information