הסבר | תגובה ל- איך לצבוע הפניות להערות שוליים בצבע של ההערות עצמם

[pcinfogmach]

תגובה ל - https://mitmachim.top/post/760636

@מנה כתב

האם מישהו יודע איך אפשר ע"י מאקרו או מקשים להגיע תוצאה הבאה
יש לי הערות שוליים רבות, חלקם צבועים בצבע מסויים (תוכן ההערה), נניח אדום שחור וירוק.
איך אוכל לסמן את ה'סימון הערת שוליים' (למעלה בטקסט-את המספר) בצבע מסויים, רק את מספרי ההערות שתוכנם בצבע X
יש פתרון ????
אולי @pcinfogmach
בתודה מראש

תשובה יש אפשרות פשוטה ב-vba מצו"ב קוד דוגמא

Sub LoopThroughFootnotesColors()
    Dim footNote As footNote
    For Each footNote In ActiveDocument.Footnotes
        If footNote.Range.Font.ColorIndex = wdBlack Then
            footNote.Reference.Font.color = footNote.Range.Font.color
        End If
    Next footNote
End Sub

מצו"ב רשימה של הצבעים שיש

דרך יותר משוכללת זה לבדוק את הצבע על ידי המאקרו דלהלן

Sub DetectFontColor()
MsgBox Selection.Font.color
End Sub

או כך

Sub DetectFontColor()
Debug.Print Selection.Font.color
End Sub

ואז לעשות עם המספר שקיבלת

Sub LoopThroughFootnotesColors()
    Dim footNote As footNote
    For Each footNote In ActiveDocument.Footnotes
        If footNote.Range.Font.color = -16777216 Then
            footNote.Reference.Font.color = footNote.Range.Font.color
        End If
    Next footNote
End Sub

[menajemmendel]

@pcinfogmach @מנה כתב בהסבר | תגובה ל- איך לצבוע הפניות להערות שוליים בצבע של ההערות עצמם:

למה שלא תעשה יותר פשוט ככה (ותחסוך שלא תצרטך לבדוק מה הצבע, ורק פעם אחת על כל המסמך)

Sub MACRO2()
    For Each footNote In ActiveDocument.Footnotes
            footNote.Reference.font.Color = footNote.Range.font.Color
    Next footNote
End Sub

[pcinfogmach]

@menajemmendel
אם הוא רוצה שזה יקרה לכל צבע אתה צודק