اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

كود تنسيق أرقام الحواشي

أحمد الحربي

بواسطه أحمد الحربي
في منتدي الوورد Word

 مشاركة

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

أحمد الحربي

أحمد الحربي

قام بنشر
قام بنشر (معدل)

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

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

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

أحمد الحربي

قام بنشر
  • الكاتب
قام بنشر

شكراً لك أخي المهاجر ..

بالطبع وورد هو من سيقوم بإعادة ترتيب أرقام الحواشي تلقائياً ..

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

وهذا ينفع للذين كتبوا صفحات كثيرة وحواشي كثيرة ولم ينسقوا رقم الحواشي في المتن بالدرجة الأولى

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

رابط هذا التعليق
شارك
  • 3 months later...
أبوسليمان

أبوسليمان

قام بنشر
قام بنشر
بسم الله الرحمن الرحيم

هذه أول مشاركة لي وأرجو أن أوفق فيه

أثناء تقليبي لموضوعات منتدى خلاصة دروس الوورد شدني الموضوع التالي:

كود تنسيق أرقام الحواشي

وهو للأستاذ الفاضل : أحمد الحربي

أرجو من الأستاذ أن يقبل مني هذا التعديل والذي يقوم بتطبيق التنسيق على أرقام الحواشي في المتن والهامش معاً

وقد أفردت هذا الموضوع لعدم مقدرتي على إضافة مشاركة في موضوع الأستاذ أحمد الحربي

والكود بعد التطوير على النحو التالي: 
' السطر التالي لوضع العرض للصفحة : على وضع عادي

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

bagher

قام بنشر
قام بنشر

اخي الكريم لدي كتاب وبارك في الاستاذ المهاجر شرح طريقة عمل الفهرس للكتاب . ثم حاولت استعمال هذا الكود لتغير لون وارقام الهوامش التحيتية . تعرف مثلا اسف الصحفحة 1 رواه البخاري 2 متفق عليه .

اريد تغير الحجم واللون لها .

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

رعاكم الرحمن :$

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

أبوسليمان

قام بنشر
قام بنشر

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

bagher

قام بنشر
قام بنشر

ماشاء الله عليك اخي العزيز اصبح الكتاب اكثر ابهة واجمل .

ياريت اخي الغالي تتحفنا ببعض اكوادك الجميلة حتى استطيع ان اجعل الكتاب يبدوا اكثر بهاء واحترافية مثلا .

كود ينسق حروف القرآن الكريم . واخر للاحاديث الشريفة . واخر للابيات الشعرية .

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

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

أبوسليمان

قام بنشر
قام بنشر

أخي العزيز : bagher

أشكرك على عباراتك اللطيفة

مشرفنا الغالي: أحمد الحربي

أشكرك أولاً لمرورك على المشاركة

ثم على عباراتك المشجعة

رغم أن أصل وصلب الكود من صنعك

فجزاك الله ألف خير

أخوكم أبوسليمان

رابط هذا التعليق
شارك
  • 11 months later...
زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept