أبوسليمان

شكرًا لك أخي عبدالله وهذا بريدي بارك الله فيك kmd_202@yahoo.com

الأخ عبدالله سليمان جزاك الله خيرًا رغبت الاستفادة من عملك والاطلاع على الأكواد غير أني لم أتمكن من تنزيل الملف المرفق ارجوا مراجعة الرابط ولك مني خالص الشكر أخوك أبوسليمان

أخي العزيز : bagher أشكرك على عباراتك اللطيفة مشرفنا الغالي: أحمد الحربي أشكرك أولاً لمرورك على المشاركة ثم على عباراتك المشجعة رغم أن أصل وصلب الكود من صنعك فجزاك الله ألف خير أخوكم أبوسليمان

أخي العزيز: 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

أتشرف بمرورك أستاذي الفاروق. أبو سليمان

بسم الله الرحمن الرحيم هذه أول مشاركة لي وأرجو أن أوفق فيه أثناء تقليبي لموضوعات منتدى خلاصة دروس الوورد شدني الموضوع التالي: كود تنسيق أرقام الحواشي وهو للأستاذ الفاضل : أحمد الحربي أرجو من الأستاذ أن يقبل مني هذا التعديل والذي يقوم بتطبيق التنسيق على أرقام الحواشي في المتن والهامش معاً وقد أفردت هذا الموضوع لعدم مقدرتي على إضافة مشاركة في موضوع الأستاذ أحمد الحربي والكود بعد التطوير على النحو التالي: ' السطر التالي لوضع العرض للصفحة : على وضع عادي 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 أخوكم أبوسليمان