أحمد الحربي قام بنشر نوفمبر 7, 2003 قام بنشر نوفمبر 7, 2003 (معدل) هذا الكود يقوم بالمرور على جميع أرقام الحواشي في المستند ووضعها بين قوسين بتنسيق مرتفع للخط وتغيير لون خط رقم الحاشية إلى الأزرق .. Dim i As Integer Selection.HomeKey Unit:=wdStory For i = 1 To ActiveDocument.Footnotes.Count Selection.Find.ClearFormatting With Selection.Find .Text = "^f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With With Selection .MoveLeft Unit:=wdCharacter, Count:=1 .Font.Superscript = True .Font.Subscript = False .TypeText Text:="(" .MoveRight Unit:=wdCharacter, Count:=1 .Font.Superscript = True .Font.Subscript = False .TypeText Text:=")" End With Selection.Find.Execute Selection.Font.Color = wdColorBlue Next تم تعديل نوفمبر 7, 2003 بواسطه أحمد الحربي
المهاجر قام بنشر نوفمبر 7, 2003 قام بنشر نوفمبر 7, 2003 بصراحة كود ممتاز.. لأن الورد يعطيك الأرقام من غير أقواس... لكن السؤال هل إذا تم تغير الرقم في الصفحة هل يتغير تلقائياً في الحاشية بعد عمل الأقواس؟؟
أحمد الحربي قام بنشر نوفمبر 7, 2003 الكاتب قام بنشر نوفمبر 7, 2003 شكراً لك أخي المهاجر .. بالطبع وورد هو من سيقوم بإعادة ترتيب أرقام الحواشي تلقائياً .. ولا دخل لهذا الكود بهذا الشيء .. وغاية ما يفعله هو التنسيق فقط .. وهذا ينفع للذين كتبوا صفحات كثيرة وحواشي كثيرة ولم ينسقوا رقم الحواشي في المتن بالدرجة الأولى وكذلك للذين يريدون أن يجعلوا تنسيق رقم الحاشية في المتن في الأخير أي بعد كتابة الحواشي كلها دون تنسيق
أبوسليمان قام بنشر فبراير 9, 2004 قام بنشر فبراير 9, 2004 بسم الله الرحمن الرحيم هذه أول مشاركة لي وأرجو أن أوفق فيه أثناء تقليبي لموضوعات منتدى خلاصة دروس الوورد شدني الموضوع التالي: كود تنسيق أرقام الحواشي وهو للأستاذ الفاضل : أحمد الحربي أرجو من الأستاذ أن يقبل مني هذا التعديل والذي يقوم بتطبيق التنسيق على أرقام الحواشي في المتن والهامش معاً وقد أفردت هذا الموضوع لعدم مقدرتي على إضافة مشاركة في موضوع الأستاذ أحمد الحربي والكود بعد التطوير على النحو التالي: ' السطر التالي لوضع العرض للصفحة : على وضع عادي ActiveWindow.ActivePane.View.Type = wdNormalView Dim i, ii As Integer For ii = 1 To 2 Selection.HomeKey Unit:=wdStory For i = 1 To ActiveDocument.Footnotes.Count Selection.Find.ClearFormatting With Selection.Find .Text = "^f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute If ii = 1 Then Selection.Font.Superscript = True Selection.Font.Color = wdColorBlue Else Selection.Font.Superscript = False End If With Selection .MoveLeft Unit:=wdCharacter, Count:=1 If ii = 1 Then .Font.Superscript = True Else .Font.Superscript = False End If .TypeText Text:="(" .MoveRight Unit:=wdCharacter, Count:=1 If ii = 1 Then .Font.Superscript = True Else .Font.Superscript = False End If .TypeText Text:=")" End With Next ' السطر التالي لعرض جزء الحواشي السفلية في وضع عرض عادي للصفحة ActiveWindow.View.SplitSpecial = wdPaneFootnotes Next ii ' السطرين التاليين : الأول منهما للعودة لأول المستند ، والثاني للرجوع إلى وضع عرض لطباعة الصفحة Selection.HomeKey Unit:=wdStory ActiveWindow.View.Type = wdPrintView أخوكم أبوسليمان
bagher قام بنشر فبراير 12, 2004 قام بنشر فبراير 12, 2004 اخي الكريم لدي كتاب وبارك في الاستاذ المهاجر شرح طريقة عمل الفهرس للكتاب . ثم حاولت استعمال هذا الكود لتغير لون وارقام الهوامش التحيتية . تعرف مثلا اسف الصحفحة 1 رواه البخاري 2 متفق عليه . اريد تغير الحجم واللون لها . هل اطمع استاذي الكريم في شرح مبسط لكيفية استعمال هذه الاكواد ؟ رعاكم الرحمن :$
أبوسليمان قام بنشر فبراير 12, 2004 قام بنشر فبراير 12, 2004 أخي العزيز: bagher هل تريد التنسيق لأرقام الحواشي السفلية دون المتن أم لكليهما فإن كان فإن كان لكليهما فإن الكود أعلاه يؤدي الغرض . والكود التالي هو نفس الكود السابق ولكن بتعديل بسيط حيث كان الكود السابق لا يقوم بتلوين الرقم في الحاشية وكان يقوم بتلوينها فقط في المتن : ' السطر التالي لوضع العرض : على وضع عادي ActiveWindow.ActivePane.View.Type = wdNormalView Dim I, II As Integer For ii = 1 To 2 Selection.HomeKey Unit:=wdStory 'هذا السطر للانتقال إلى أول الملف For I = 1 To ActiveDocument.Footnotes.Count Selection.Find.ClearFormatting With Selection.Find .Text = "^f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute If ii = 1 Then 'هذا السطر لجعل رقم الحاشية في الحاشية التحتية بمستوى النص Selection.Font.Superscript = True Else 'هذا السطر لجعل رقم الحاشية في المتن مرتفع Selection.Font.Superscript = False End If 'هذا السطر لتلوين رقم الحاشية باللون الأزرق Selection.Font.Color = wdColorBlue With Selection .MoveLeft Unit:=wdCharacter, Count:=1 If ii = 1 Then .Font.Superscript = True Else .Font.Superscript = False End If .TypeText Text:="(" .MoveRight Unit:=wdCharacter, Count:=1 If ii = 1 Then .Font.Superscript = True Else .Font.Superscript = False End If .TypeText Text:=")" End With Next ' السطر التالي لعرض جزء الحواشي السفلية في وضع عرض عادي للصفحة ActiveWindow.View.SplitSpecial = wdPaneFootnotes Next ii ' السطرين التالي : الأول منهما للعودة لأول المستند ، والثاني للرجوع إلى وضع عرض لطباعة الصفحة Selection.HomeKey Unit:=wdStory ActiveWindow.View.Type = wdPrintView أما عن طريقة الاستفادة ، أرجو أن تقوم بتنفيذ الخواظ التالية : 1 ) اضغط على المفتاحين Alt + F8 2 ) أكتب في خانة اسم الماكرو: حاشية 3 ) اضغط على زر : إنشاء ، عندها سوف يفتح لك نافذة تحرير الكود (لا تعمل فيه شيء) 5 ) قم بنسخ الكود الموجود أعلاه ثم ألصقه في محرر الكود ، في موضع المشيرة عند فتح النافذة 6) اضغط على زر : حفظ في شريط الأدوات . 7 ) أغلق النافذة 8 ) افتح ملفك الخاص بك ، وخذ قبلها نسخة احتياطية للآمان . 9 ) اضغط مفتاحي Alt+F8 10) ابحث قي قائمة الحواشي عن الماكرو : حاشية ، واختره 11) اضغط زر : تنفيذ . أما إذا كنت ترغب في تنسيق الأرقام في الحواسي السفلية دون الأرقام في المتن فقم بنسخ الكود التالي ونسخه مكان الكود السابق : ActiveWindow.ActivePane.View.Type = wdNormalView ActiveWindow.View.SplitSpecial = wdPaneFootnotes Selection.Find.ClearFormatting With Selection.Find .Text = "^f" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue End With Selection.Find.Execute Selection.HomeKey Unit:=wdStory Dim I As Integer For I = 1 To ActiveDocument.Footnotes.Count Application.Browser.Next Selection.Font.Superscript = False Selection.Font.Color = wdColorBlue With Selection .MoveLeft Unit:=wdCharacter, Count:=1 .Font.Superscript = False .TypeText Text:="(" .MoveRight Unit:=wdCharacter, Count:=1 .Font.Superscript = False .TypeText Text:=")" End With Next I
bagher قام بنشر فبراير 15, 2004 قام بنشر فبراير 15, 2004 يا ابا سليمان لك كل الشكر موصول بالعزيز المهاجر رعاك الرحمن احاول واعطيك ماحصل معي . اكرر شكري لك ايها الغالي :pp:
bagher قام بنشر فبراير 16, 2004 قام بنشر فبراير 16, 2004 ماشاء الله عليك اخي العزيز اصبح الكتاب اكثر ابهة واجمل . ياريت اخي الغالي تتحفنا ببعض اكوادك الجميلة حتى استطيع ان اجعل الكتاب يبدوا اكثر بهاء واحترافية مثلا . كود ينسق حروف القرآن الكريم . واخر للاحاديث الشريفة . واخر للابيات الشعرية . اكرر رعاك الرحمن وجعل كل كلمة تكتبها في هذا المنتدى المبارك في موازين حسناتكم
أحمد الحربي قام بنشر فبراير 17, 2004 الكاتب قام بنشر فبراير 17, 2004 رائع جداً أستاذنا الكريم أبا سليمان بارك الله فيك ووفقك الله ..
أبوسليمان قام بنشر فبراير 18, 2004 قام بنشر فبراير 18, 2004 أخي العزيز : bagher أشكرك على عباراتك اللطيفة مشرفنا الغالي: أحمد الحربي أشكرك أولاً لمرورك على المشاركة ثم على عباراتك المشجعة رغم أن أصل وصلب الكود من صنعك فجزاك الله ألف خير أخوكم أبوسليمان
الردود الموصى بها