alhajri قام بنشر يوليو 5, 2003 قام بنشر يوليو 5, 2003 السلام عليكم كنت استخدم الاوفيس 2000 وكان هناك ماكرو مساعد اسمه AraAddin انزلته من موقع مايكروسوفت وهو خاص لتنسيق القصائد اضافة الى احتواءه على حركات السكون والفتح والظم ...الخ ،، ويستخدم مع الوورد 2000 فقط وبعد استخدام الوورد اكس بي العربي طبعا لم اجده او ربما موجود ولا اعرف ما اسمه او عن طريقة استخدامه هل هي مثل ذلك الماكور السابق ام تختلف كليا . هل بالامكان ارشادي الى مكان ذلك الماكرو في الوورد اكس بي وشكرا لكم :lol:
امير عاطف قام بنشر يوليو 6, 2003 قام بنشر يوليو 6, 2003 (معدل) إنزال الماكرو الذي يقوم بتنسيق القصائد في الوورد من هنا قم بفتح الماكرو بعد انزاله من الرابط السابق وبعد ذلك سوف يسألك اين تريد حفظ مسار الماكرو ؟ في حالة اوفيس 2002 اختار المسار التالي: D:\Program Files\Microsoft Office\Office10\Startup هذا لو كان مسار الاوفيس على الدرايف D بالطبع لو كان مسار الاوفيس في القرص الصلب على الدرايف C فقم باستبدال ذلك بالمسار السابق ,,,, بعد ذلك عندما تقوم بفتح اي ملف وورد ستجد الماكرو ان شاء الله تم تعديل يوليو 6, 2003 بواسطه امير عاطف
alhajri قام بنشر يوليو 6, 2003 الكاتب قام بنشر يوليو 6, 2003 شكرا لك اخي الكريم وجزاك الله خير دنيا واخره وانا فكرته تطور الوورد الاكس بي وبيكون ذلك الماكرو مضمن ضمن ادوات الوورد لكن الا حظ فيه بعد الضغط على زر تنسيق القصيده لا يشمل التنسيق اول شطر من البيت الاول لماذا هل لديك فكره عن السبب وتظهر رساله تقول ( Object variable or With block variable not set ) وش تعني هالرساله تحياتي لك
امير عاطف قام بنشر يوليو 6, 2003 قام بنشر يوليو 6, 2003 هناك حل آخر وهو ان تقوم بتغيير امتداد الملف الذي قمت بوضعه بالدليل السابق من dot الى doc وبعد ذلك تضع الملف في المكان الذي تريد بحيث تجعله ايقونتك الافتراضيه التي تفتح منها الوورد في حالة تنسيق القصائد ... في هذه الحالة لن تظهر اليك الرسالة السابقه وكل شيء يكون تمام ان شاء الله :d للعلم ... هناك ميزه رائعه في هذا الماكرو ايضاً وهو يمكنه تحويل الارقام الى حروف !!!!
alhajri قام بنشر يوليو 6, 2003 الكاتب قام بنشر يوليو 6, 2003 انا لايهمني ظهور تلك الرساله ولكن ما يهمني هو تخطيه للشطر الاول من البيت الاول وعدم تنسيقه من ناحية الطول في الخليه فقط عملت ما قلت وحولت امتداد الملف الى DOC فعلا لم تخرج رساله لكن خرج نيابة عنها اطار يحيط بالملف على شكل برواز وهذا استيطع تجاوزه من قائمة الحدود وازالته ولكن المشكله كما قلت في عدم تنسيق الشطر الاول من البيت الاول . على فكره الماكرو لم انزله من الرابط الذي وضعته انت فقد كان لدي وهو لوورد2000 ورابطك هو نفس التنسيق على ما اظن . هل من حل لتنسيق الشطر الاول من البيت الاول دون تدخلي فيه مثل ما كان سابقا وجزاك الله خير اخوك الهاجري
امير عاطف قام بنشر يوليو 7, 2003 قام بنشر يوليو 7, 2003 اخي alhajri : لدي ًًًWindowsXp + OfficeXP ويعمل الماكرو بدون مشاكل ويقوم بتنسيق الشطر الأول من اي قصيده
alhajri قام بنشر يوليو 7, 2003 الكاتب قام بنشر يوليو 7, 2003 شكرا على مساعدتك ولكنه لا ينسق الشطر الاول من اول بيت في القصيده لدي ولا اعلم اين السبب استخدم الويندوز 98 والاوفيس اكس بي عربي وعلى العموم لعل وعسى ان اجد حل اخر يساعدني في تخطي هذه المشكله وجزاك الله اخير يا امير عاطف ( وبيض الله وجهك)
محمد طاهر عرفه قام بنشر يوليو 7, 2003 قام بنشر يوليو 7, 2003 هذا الموضوع منقول و أعتقد أن كاتبه اسمه أبو محمد الهذلي: طريقة كتابة الشعر في الورد الطريقة الأولى : ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم 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 -------------------------------------------------------------------------------- فجرب ما فيه ، ربما يفيد
امير عاطف قام بنشر يوليو 7, 2003 قام بنشر يوليو 7, 2003 (معدل) الله ينور عليك اخي محمد طاهر هذ البريمج حصلت عليه من أحد الأصدقاء ... ربما يفيد ايضاً !!!! وكل ما عليك من خلاله هو وضع القصيده الذي تريد تنسيقها بالوورد داخله وتفصل بين كل شطر والاخر بعلامة "=" (يساوي) وبعد ذلك اضغط على زر تنفيذ ستظهر لك رساله اول مره وافق عليها ثم تظهر لك رساله بنجاح العمليه بعد ذلك افتح مايكروسوفت وورد وقم بعمل لصق ما في الحافظه ستجد انه تم اللصق بتنسيق الشعر البريمج تجده مع المرفقات حجمه 2.5 كيلو بايت .. يعني سوف يستغرق 966985568956224885جزء من الثانيه :lol: format_for_word.zip تم تعديل يوليو 7, 2003 بواسطه امير عاطف
alhajri قام بنشر يوليو 8, 2003 الكاتب قام بنشر يوليو 8, 2003 (معدل) اخي محمد والله اخر كرم الله يجزاك خير وان شاء الله ساجربها تباعا واختار اسهلها . اخي امير عاطف البرنامج رائع وهو على صفحة ويب والطريقة 100/100 الله يبارك فيك ويكثر من امثالك لكم كل الشكر والتقدير تم تعديل يوليو 8, 2003 بواسطه alhajri
المهاجر قام بنشر أكتوبر 22, 2003 قام بنشر أكتوبر 22, 2003 هذا البرنامج يساعدكم في ترتيب القصائد ، وإضافة التشكيل للكلمات
المهاجر قام بنشر أكتوبر 22, 2003 قام بنشر أكتوبر 22, 2003 هذا هو الملف والشكر للأستاذ محمد طاهر للمساعدة إضافات_للوورد.rar
المهاجر قام بنشر أكتوبر 23, 2003 قام بنشر أكتوبر 23, 2003 للمعلومية هذا الملف ليس من تصميمي وإنما منقول
المهاجر قام بنشر أكتوبر 26, 2003 قام بنشر أكتوبر 26, 2003 السلام عليكم ورحمة الله وبركاته،، طرق كتابة الشعر في وورد, منقول الطريقة الأولى : ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ، ثم SHIFT + ENTER لكتابة بيت جديد ، بعد ذلك حدد الكل ثم ضبط كلي من تنسيق ، ثم غير عرض الأعمدة لتتناسب مع بعضها.
الحدادي قام بنشر أكتوبر 31, 2003 قام بنشر أكتوبر 31, 2003 المدون الأصلي لها alyafei2000 اضافة الى رد الاخ العزيز: هذه طريقة اخرى
المهاجر قام بنشر أكتوبر 31, 2003 قام بنشر أكتوبر 31, 2003 الطريقة الثانية : 1- ادرج جدول من ثلاثة حقول ، اكتب الصدر في الحقل الأول والعجز في الثالث ثم حدد الصف كاملا وانقر عليه بالزر الأيمن للماوس ثم اختر خصائص الجدول . 2- اختر لسان التبويب " خلية " من نافذة " خصائص الجدول " ثم انقر على الزر " خيارات " . 3- ضع اشارة صح على مربع الاختيار " احتواء النص " في صندوق حوار خصائص الخلية . 4- اضغط موافق مرتين وتمتع بكتابة القصيدة داخل الجدول بدون عناء التنسيق لكل بيت من القصيدة .
المهاجر قام بنشر نوفمبر 4, 2003 قام بنشر نوفمبر 4, 2003 الطريقة الثالثة : إضافة إلى الطريقة الثانية باستخدام الماكرو " برمجة حلوة وسهلة " : 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 مثلا إذا كان الشعر المراد تنسيقه يحتوي على ألف بيت شعر .
ابومؤنس قام بنشر يناير 13, 2005 قام بنشر يناير 13, 2005 (معدل) هل يمكن شرح الطريقة السابقة ولو باختصار - المشاركة رقم 15 في الصفحة السابقة وكانت للعضو ( alyafei2000 ) بالتوفيق ,,,, تم تعديل يناير 13, 2005 بواسطه ابومؤنس
المهاجر قام بنشر يناير 14, 2005 قام بنشر يناير 14, 2005 الشرح باختصار اضغط في المسطرة العليا في المكان الذي تريد أن يبدأ فيه شطري البيت وينتهي واضبط المسافة على حسب ما تريد بعد ذلك عند كتاب البيت اضغط تاب ينتقل إلى الشطر الثاني وهكذا
الردود الموصى بها